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PREFACE 



This publication is organized in three 
sections. Section 1 is an introduction 
describing the relationship between the 
compiler and the Operating System, and the 
overall organization of the compiler. Sec- 
tion 2 is a description of the compiler 
phases v including a general description of 
each logical phase followed by descriptions 
of each of the physical phases contained in 
the logical phase. Section 3 consists of 
flowcharts and routine directories. The 
flowcharts show the relationship between 
the routines of each phase* while the 
directories list the routines and their 
functions . 



The appendixes appearing at the end of 
the publication contain topics of special 
importance and reference material. 

The convention has been followed in this 
manual of printing all PL/I language items 
in block capitals. 

Prerequisite to the use of this publica- 
tion are the following: 

IBM System/3 60, Principles of Operation , 
Form A22-6821 

IBM System/360 Operating System, PL/I 
(F) Programmer's Guide . Form C28-6594 



IBM System/360 Operatin g System. PL/I 
La nguage Specifications , Form C28-6571 



Although not prerequisite, the following 
publications are related to this manual and 
should be consulted: 

IBM System/360 Operating System , , Program 
Logic Summary , Form Y28-6605 

IBM System/3 60 Operating System, Seguen- 
tial Access Methods P rogram Log ic, Form 
Y28-6604 

IBM Operating Sy ste m/360^ Operator's 
Guide . Form C28-6540 

IBM System/ 360 Oper at ing System,, Control 
Program Service s. Form C28-6541 

IBM System/360, System Programmer's 
Guide , Form C28-6550 

IBM Operating Sys tem/360 . Storage Esti- 
mates . Form C28-6551 

IBM System/ 360 Operating S ystem. System 
Generatio n, Form C28-6554 

IBM System/360 Operating System, PL/I 
Subroutine Library, Program Log ic Manu- 
al. Form ¥2 8-68 01 
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SECTION 1: INTRODUCTION 



PURPOSE OF THE COMPILER 



The Operating System/360 PL/I (F) Com- 
piler analyzes and processes source pro- 
grams written in PL/I, and translates them 
into object programs in load module form 
suitable for input to the Linkage Editor. 
When errors are detected in the source 
program, appropriate diagnostic messages 
are produced. The compiler functions with- 
in Operating System/360 and may be used on 
machines where at least 45,056 (14K) bytes 
of core storage are available for the 
compilation (exclusive of storage require- 
ments for the Operating System) . 



THE COMPILER AND OPERATING SYSTEM/360 



The PL/I (F) compiler is a processing 
program of Operating System/360. The com- 
piler consists of a number of phases under 
the supervision of compiler control rou- 
tines. The compiler communicates with the 
control program of the Operating System, 
for input/output and other services, 
through the control routines. 

A compilation is introduced as a job 
step under the control of the Operating 
System, via the JOB statement,, the execute 
(EXEC) statement, and the data definition 
(DD) statements of the Job Control Lan- 
guage, for the input/output data sets. 
Cataloged procedures are provided to keep 
these statements to a minimum. A discus- 
sion of the introduction of a compilation 
as a job step, and of the available catal- 
oged procedures, is given in the publica- 
tion IBM S ystem/360 Operating System, PL/I 
( F) Programmer's Guide , Form C28-6594. 

The source program to be compiled 
appears as input to the compiler on the 
SYSIN data set. The compiler uses SYSUT1 
(required if the main storage is insuffi- 
cient to contain the program) and SYSUT3 
(required if the 48-character set or the 
compile-time processor is used) as work 
data sets. The SYSPUNCH, SYSPRINT, and 
SYSLIN data sets are used, depending on the 
options specified by the source programmer, 
to contain the output from the compiler. 

The overall data flow associated with a 
compilation, and the data sets used in the 
compilation, are illustrated in Figure 1. 



A compilation is initiated by loading 
the compiler control routines from the Link 
Library- The compiler control routines 
then carry out their own initialization, 
including loading those compiler control 
routines which remain in storage throughout 
the compilation. These routines perform 
the following functions: 

1. Act as the interface between the com- 
piler phase and the Operating System, 
controlling all input/output,, storage 
allocation, program interruptions, 
storage dumping, etc. 

2. Supervise the loading of compiler 
phases in accordance with source pro- 
gram options and information obtained 
from the source program by the compil- 
er phases . 

3. Supervise all workspace used by the 
compiler for information concerning 
the source program. This includes any 
spilling from main storage to backing 
storage in order to accommodate large 
source programs, the conversion of 
symbolic references to absolute 
addresses, and the conversion from 
absolute addresses to symbolic ref- 
erences- 

4. Provide a number of routines to assist 
in compiler debugging. 

The compiler options specified are 
interpreted and the appropriate action 
taken. The environmental options, such as 
storage size and device type, are used to 
calculate the text and dictionary block 
size and the "spill" point (i.e. the point 
at which the main storage available is 
insufficient to contain the dictionary and 
text) . 

To determine the block size a table 
contained in Phase AB is used. The storage 
size is used as the argument to search the 
table. When the correct entry is found, 
the text block size and the dictionary 
block size values are extracted and used 
for the compilation. 

The options are instructions to the 
compiler. Some of these require a phase to 
be loaded that would not otherwise be 
loaded. When an option of this type is 
found, a request for the phase required is 
inserted into the status byte in the phase 
directory. Other options are in the form 
of instructions to a phase that is always 
loaded, These instructions are also placed 
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in coded form in a control code word in the 

communications region of the dictionary 

(see "Control Code Word — CCCODE" in 
Appendix B). 



:OMPILER ORGANIZATION 



information as the addresses of the 
heads of chains, the symbolic start of 
text, etc- The remainder of the dic- 
tionary contains all information 
relating to identifiers appearing in 
the program, temporary storage areas 
required, etc. For the compiler pro- 
per, the format of all dictionary 
entries will be found in Appendix C. 



The PL/ I (F) Compiler comprises a number 
of logical phases, each of which consists 
of several physical phases. 

The compiler phases and their corres- 
ponding functions are indicated in Figure 
2, and the organization of the compiler is 
shown in Figure 3. 

Control is passed between the phases of 
the compiler via the control routines. 
After each phase has been executed, it 
branches to the control phase, which sel- 
ects from its load list the next phase to 
be executed. 

Communication between the phases is 
implemented by the following: 

1. The text string. The text string at 
the start of the compilation is input 
text. This is converted by the 
compile-time processor, if necessary, 
into a string which is PL/I source 
text. The characters in this string 
are translated into a code internal to 
the compiler. The phases of the com- 
piler gradually process the text until 
the final form is the object program, 
consisting of a string of machine 
instructions. For the compiler pro- 
per, the text code bytes used, and 
formats of statements at different 
stages of the compilation, will be 
found in Appendix D. 

The text is broken down into a number 
of blocks, depending upon the size of 
the machine. Each block has a symbol- 
ic name which is independent of the 
physical location of the block in 
storage. Thus, the text blocks may be 
moved around in core storage under the 
supervision of the compiler control 
routines, and spilled on to backing 
storage if insufficient main storage 
is available. 

2- The dictionary. The dictionary con- 
sists of a number of blocks, each with 
a symbolic name. Part of the first 
dictionary block is used as a communi- 
cations region (see Appendix F) 
between phases, and for this reason 
the first block is never spilled, even 
when the source program to be compiled 
exceeds available storage. The com- 
munications region contains such 
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LOGICAL PHASES 



Translator Phase 



The logical phases of the compiler and 
their main functions are summarized in the 
following paragraphs. 



The Translator Phase converts the origi- 
nal PL/I syntactic form to an internal 
syntactic form, referred to as "triples." 



C ompile-time Processor Phase 



The Compile-time Processor Phase reads 
input text, executes any compile-time 
statements contained in it, and modifies 
text as directed, producing modified text 
for further compiler processing. 



Triples consist of the original source 
program operators and operands, but rearr- 
anged so that the operations specified in 
the source string may be carried out in 
their proper order. 



Aggregates Phase 



Read- In Phase 



The Read-In Phase is the first logical 
phase, and is responsible for any macro 
source program modifications, source pro- 
gram syntax checking, and the removal, from 
the text string, of all superfluous charac- 
ters, such as comments and non-significant 
blanks. 



The Aggrega 
structure and 
ments are alig 
boundaries . 
carry out the 
such as when 
lengths or arr 
by expressions 
do it at ob 
checks that it 
structures can 



tes Phase carries out all 
array mapping* so that ele- 
ned on the correct storage 
When it is not possible to 
mapping at compilation time, 
the aggregates contain string 
ay bounds which are specified 
, object code is produced to 
ject time. This phase also 
ems DEFINED on arrays and 
be mapped consistently. 



Dictionary Phase 



Pseudo-Code Phase 



The Dictionary Phase removes all BCD 
identifiers and attribute declarations from 
the source string, and replaces them by 
symbolic references to dictionary entries. 
The dictionary entries contain all the 
consistent declared attributes, and all the 
attributes specified in the language in 
default of source program specifications. 
Error messages are generated for all incon- 
sistent attributes. 



The Pseudo-Code Phase converts the tri- 
ples to a form closely resembling machine 
instructions, in which registers are rep- 
resented symbolically, and storage loca- 
tions are represented by dictionary ref- 
erences with offsets. The final pseudo- 
code version of the text also contains a 
number of special pseudo-code items for the 
guidance of later phases. 



Pretranslator Phase 



The Pretranslator Phase processes those 
features of the language that are more 
easily processed in their original PL/I 
form, than when the original syntactic form 
has been lost in later phases. The Pre- 
translator carries out these modifications 
which include the rearranging of the order 
of certain I/O statements, the creation of 
temporary variables for procedure arguments 
which are expressions, the conversion of 
array and structure assignments to a series 
of 'DO* loops surrounding scalar assign- 
ments, and the removal of iSUB expressions. 



Storage A lloca tion Phase 



The Storage Allocation Phase searches 
the dictionary for all entries requiring 
storage,, and allocates offsets to each 
item, either within its AUTOMATIC block, or 
within the STATIC storage area. Code is 
compiled to set up dope vectors and 
pointers at object time, for allocations of 
controlled variables and temporaries* the 
storage for which must be obtained during 
the execution of the object program. Pro- 
logue code is generated for each block of 
the object program. 
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Register Allocation Phase 



The Register Allocation Phase allocates 
physical registers to the symbolic reg- 
isters which have been requested by earlier 
phases, and also ensures that all the 
storage location offsets allocated in pre- 
vious phases can be addressed by the inser- 
tion of additional instructions, where nec- 
essary. 



constant data required for block initiali- 
zation. ESD, f RLD, and INCLUDE cards are 
produced to enable the object program to be 
edited by the Operating System/360 Linkage 
Editor. The Final Assembly Phase also 
produces a listing of the object code 
produced. 



Error Editor Phase 



Final Assembly Phase 



The Final Assembly Phase completes the 
translation to machine code instructions, 
by calculating branch destination addresses 
inserted symbolically by earlier phases. 
Loader text is then produced for the 
machine instructions, constants, INITIAL 
values in STATIC storage, and all the 



The Error Editor Phase is entered at the 
end of every compilation. The dictionary 
is examined to determine whether there are 
any diagnostic messages to be printed out. 
If there are none, the compilation is 
terminated by the compiler control. If 
there are diagnostic messages to be printed 
out, the error dictionary entries are proc- 
essed and the messages are printed. The 
texts of all the diagnostic messages are 
held in modules XG through YX. 
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SECTION 2: COMPILER PHASES 



COMPILER CONTROL AND U8-CHARACTER S ET 
PREPROCESSOR 



On return from module AB, the first compil- 
er phase is loaded and entered. 



COMPILER CONTROL 

When the PL/ I (F) Compiler is invoked by 
the calling program (e.g., the Job 
Scheduler) of the Operating System, the 
Compiler Control module IEMAA is loaded and 
entered. IEMAA is resident during the 
whole compilation; it controls the follow- 
ing functions: 

Initialization 

Character translation 

Text and dictionary block control 

Scratch storage control 

Phase loading 

Diagnostic message control 

Input/output control 

Program check handling 

Job termination 



Initialization 



Initialization is achieved by module AA 
linking to module AB. Module AB performs 
the detailed initialization of the compil- 
er, and provides the following functions: 

Opens SYSIN and SYSPRINT data sets 

Constructs a phase directory (for details 
refer to Appendix B) 

Sets up a communications region in the 
dictionary (for details refer to Appendix 
F) 

Scans option list 

Obtains space for text blocks, dictionary 
blocks, and scratch storage 

Opens SYSUT3 as necessary 

Prints a list of options used in current 
compilation 



Character Translation Tables 



The character translation tables (see 
Appendix D.l) provide the facility for 
converting external code to a compiler 
internal code, and for converting the 
internal code back to the external form. 
These tables thus prevent the compiler from 
becoming character code dependent, and ena- 
ble the scanning routines to process the 
input source statements more efficiently. 
Note that the contents of these tables are 
different during compile-time processing 
from the contents during compilation pro- 
per. 



Communications Re gion 



The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in 
Appendix F. (Note: The use of the communi- 
cations region during compile-time process- 
ing is described in Appendix J.) 



Text an d D ict i onary Block Control 



Block control is achieved by a system of 
text and dictionary references. If the 
program in storage becomes too large, 
blocks are placed on an external file, 
SYS0T1. The block control routines contain 
the input/output control. 



Scratch Storage Control 



Scratch storage of 4K bytes is guaran- 
teed to all phases. The control routines 
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split the UK- block into discrete sections, 
and allocates them as required. The sec- 
tions are in multiples of 512 bytes. 



S torage Requirements 



The (F) Compiler requires main storage 
for the following purposes : 



Compiler processing phases 

Print buffers 

Compiler control routines 
Dictionary area 
Text area 



Phase Director y 



Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. 

The phase directory is constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM Syst e m/360 
Operating System, Control Program Se rv ices , 
Form C28-6541. For details of the phase 
directory see Appendix B. 



Diagnostic Message Control 



Input/Output buffers 

Input/Output routines (BSAM) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

During the read-in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 

During the rest -of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 



The dictionary and text 
chosen according to the 
storage available to the 
SIZE option, interpreted 



block size is 
amount of main 
compiler. The 
at invocation 



time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 

Appendix E shows details of storage 
allocation. 



Phase Loading 



Phase loading routines include phase 
marking (where phases are indicated as 
wanted or not wanted), phase loading, and 
phase deleting facilities. The phase 
directory is constructed for this purpose. 



Diagnostic message control routines 
cause diagnostic messages to be placed in a 
chain in the dictionary. 



Input/Output Control 



The I/O control routines involved act as 
an interface between the compiler phases, 
and SYSIN, SYSPRINT, SYSLIN, and SYSPUNCH 
data sets. (see Figure 4.) 



Program Check Handling 



The compiler handles all program checks. 
Control can be passed to a phase to enable 
it to deal with the check. 



Job Termination 



The compiler completion code is picked 
up and control is returned to the calling 
program. 

The compiler completion codes are as 
follows: 

Me aning 

No diagnostic messages issued; com- 
pilation completed with no errors; 
successful execution expected 
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routines. 

2 AS may read from included data sets in addition to data sets shown in the table* 

3 If the SIZE option results in IK text and dictionary blocks, SYSUT1 is opened by 
Module AB. In the case of other SIZE options, SYSUTl is opened by Module AA when 
the available main storage is full. The timing depends on the size of program to 
be compiled. 

**At end of compilation. 

L 

Figure 4. Input/Output Usage Table 



4 Warning messages issued; program 
compiled; successful execution 
expected 

8 Error messages issued; program com- 
piled but with errors; execution 
may fail 

12 Severe error messages issued; com- 
pilation may be completed but with 
errors, successful execution impro- 
bable. If a severe error occurs 
during compile-time processing, a 
listing of the PL/I text on SYSUT3 
will be printed if the SOURCE 
option is specified. The compila- 
tion will be terminated* 

16 Terminal error messages issued; 
compilation terminated abnormally 



Module AC 



Module AC controls reading and writing 
operations On SYSUT3, the intermediate 
file. It is loaded only if the CHAR48 or 
MACRO option is specified, and is deleted 
at the end of the Read-In Phase. 



Module AD 



Module AD 
Using TESTRAN. 



performs inter-phase dumping 



All currently active storage is dumped 
at the end of the phases stated or implied 
in the DUMP option. The required output is 
selected at TESTRAN edit time. 



COMPILER CONTROL MODULES 



In addition to modules AA and AB, furth- 
er modules, AC, AD, AE, AF, AG, AM, and JZ 
are used in compiler control- The func- 
tions of these modules are briefly des- 
cribed in the following paragraphs. 



The DUMP Optio n 



The DUMP option specifies where dumping 
of main storage is to take place- It may 
be specified in one of the following ways: 
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1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 

2. DUMP=(AREA) " means a dump of storage 
only when a program check occurs 

3. pUMP=(AREA # x lr x 2 , (x 3 ,x n ) , . . . ) means a 
dump of storage after the named phase 

x 1# x 2!f etc., are 2-byte phase names 

AREA is any combination of TDPSC: 
T text blocks 
D dictionary block 
P phases loaded 
S scratch storage 
C control phase 

The general syntax is: 

DUMP [= (AREA, {x | (y,z)>, )] 

A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 

The dump will appear on SYSPRINT, 
inserted into the normal compiler output. 

Use of the DUMP option is not restricted 
by the amount of storage available to the 
compiler. 



Module AE 



The closing and opening operations are 
performed in the following order: 

CLOSE 

alter macro- type in data control block 
(DCB) 

OPEN (INPUT) 

switch routine ZURD to point at SYSUT3 
DCB 



Module AM 



Module AM marks phases as either wanted 
or not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 

AM is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in CCCODE and marks the 
phases accordingly. 



Module JZ 



Module JZ builds the second half phase 
directory. A. build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list- The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 



Module AE is the 
Read- In Phase control. 



Module AF 



finalization of the 



Module AF is a control section consist- 
ing of a table containing the compiler 
options which may be used during a compila- 
tion. The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module A.B at compilation time. A descrip- 
tion of the use of Module AF is given in 
Appendix G. 



Module AG 

Module AG closes SYSUT3 for output, and 
re-opens it for input. 



48-CHARACTER SET PREPROCESSOR 



Phase BX is the 48 -character set prepro- 
cessor. It is loaded on programmer option 
and receives, as input, source text in the 
48-character syntax. 

The preprocessor scans the input text 
for occurrences of characters peculiar to 
the 48-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto back- 
ing storage ready for Phase CI, the first 
pass of the Read-In Phase. 

The text is read in record by record. 
It is then scanned for alphabetic charac- 
ters which may be the initial letters of 
operator keywords, for periods, and for 
commas. Items within comments or character 
strings are ignored. 

When a possible initial letter is disco- 
vered, tests are made to determine whether 
or not one of the reserved operator key- 
words has been found. If one has been 
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found, it is replaced by its 6 0-character 
set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and a 
comma-period pair is replaced by a semi- 
colon if the comma-period pair is not 
immediately followed by a numeric 
character. 

Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
split between two records. 

Before the text is processed a copy of 
the original input is preserved. The out- 
put from the preprocessor is the trans- 
formed text, record by record, followed by 
the original text. The Read-In Phase proc- 
esses transformed text but prints out the 
original. 

The preprocessor uses compiler Control 
routine ZURD to obtain input, and routine 
ZUBW to place its output onto backing 
storage. 

Note ; If the MACRO option is specified, all 
the processing described above is 
done by the compile-time processor, 
and phase Bx is bypassed. 



COMPILE-TIME PROCESSOR PHASE 



The compile-time processor consists of 
six physical phases. Each of these phases 
is executed once, unless an INCLUDE data 
set is encountered that contains compile- 
time statements. In this case certain 
phases will be re-executed. 

The compile-time processor moves source 
text that does not contain compile-time 
statements directly into text blocks. 
During this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 

A second pass is then taken over these 
text blocks, during which compile-time 
statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
PL/I source program contained on SYSUT3. 

If during the second pass, an INCLUDE 
data set is processed that contains compile 
time statements, the entire procedure indi- 
cated above is executed recursively to 
process this text. 



Text and dictionary formats used by the 
compile-time processor are contained in 
Appendix J. 



Line Numbering 



As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 
input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 
inserted into the text so that diagnostics 
can be keyed to them- These line numbers 
are also output on SYSUT3, to aid the user 
in determining from which input line a 
particular line of output came. 



Phase AS 



This phase, consisting of one physical 
module, is loaded if the option MACRO is 
specified. It is resident throughout 
compile-time processing until the cleanup 
phase (BW) is invoked. 

This phase controls the loading of the 
subsequent compile-time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (BC 
and BG) are loaded and executed once unless 
an INCLUDE data set is processed that 
contains compile-time statements. In this 
case phase AS reloads the processing phases 
to process this data set. 

In addition, phase AS contains a set of 
service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 



Phase AV 



This phase consists of one physical 
block. Its purpose is to initialize cer- 
tain cells in the communications region for 
the compile-time processor phases. 



Phase BC 



Phase BC consists of 
modules, BC, BE, and BF. 
tains the control routine. 



three physical 
Module BE con- 
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Phase BC accepts input text, moving it 
into text blocks until a compile-time 
statement is found.. (For a description of 
the use and layout of text and dictionary 
blocks, see Appendix J.) When a compile- 
time statement is encountered, it is 
encoded into a set of interpretive instruc- 
tions and, except for compile-time proce- 
dures, added to the current text block. 
Compile-time procedures are similarly 
encoded, but are placed in separate text 
blocks, 

As compile-time statements are encoded, 
all non*-keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DOS. 

During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 
converted to blanks. Invalid characters 
can thus be used for markers of various 
sorts in text blocks. Diagnostics are 
given for syntax errors in compile-time 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 



Phase BG 



Phase BG consists of two physical 
modules, BG and BI. The control routine is 
contained in module BG. 



If the scan encounters an encoded 
compile-time statement (built by phase BC) f 
control is passed to an interpreter. This 
interpreter executes the statement — pos- 
sibly repositioning the scan cursor — and 
returns to the scan. 

The output of this phase is a PL/I 
source program contained on SYSUT3. 



Phase BM 



Phase BM examines the heads of the error 
chains in the first dictionary block, and 
programmer options which specify the sever- 
ity level of messages required. If there 
are no messages., it passes control to the 
clean up phase (BW) , If diagnostic messa- 
ges are required, the phase loads BN to 
process them after scanning the chains and 
indicating where the text is to be found. 



Module BN 



The text of all compile-time processor 
error messages is kept in modules BP 
through BV. The messages are ordered by 
severity, within these modules. BM will 
have listed those modules which contain 
messages required for a particular pass. 
Module BN loads and releases these modules, 
one at a time and extracts the required 
messages. When all compile-time error mes- 
sages have been processed, module BN 
returns control to BM. 



In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its 
basic action is to move through text blocks 
looking for instances of compile-time vari- 
ables or compile-time statements, which it 
uses to produce the output text. As line 
numbers are encountered in the text, they 
are placed into a location containing the 
current line number. This is used both for 
phase BG diagnostics and by the output 
editor. 

If a compile-time variable or procedure 
reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 
is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
occur to a depth of 100. 



Phase BW 



The purpose of this phase to set all 
tables and communications regions cells to 
the values required by the compiler proper. 
In addition it will release all text and 
dictionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 

If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of SYSUT3 will be 
printed (provided that the SOURCE option 
applies) , and compilation will be bypassed. 



THE READ-IN LOGICAL PHASE 



The Read-In Phase is implemented as five 
discrete physical phases, each of which 
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processes a particular group of statement 
types. The phase obtains the input text in 
the externally coded form by a call to the 
compiler read routine,, and converts it to 
internal code by means of a translate table 
provided by compiler control. 



The source text is scanned for syntacti- 
cal errors. During this time an output 
string is built up, which consists essen- 
tially of the input text with comments and 
insignificant blanks removed. The source 
text is scanned and statements are num- 
oered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, 
PROCEDURE chains) . If the SOURCE option 
applies, source statements, with their num- 
bers, are printed out immediately after 
they have been read. 



Statement and Entry Labels 



Statement and entry labels appearing in 
the source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 

EG. 

When a label declaration is found, an 
entry is made in the label table with a 
statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 

Statements having multiple labels give 
rise to multiple label table entries. 
These entries are identical except for the 
BCD name. 



When the input text provides an end-of- 
file indication, processing is terminated. 
In ERROR situations this may not occur when 
a valid external procedure has been 
completely processed. By keeping a count 
of PROCEDURE, BEGIN, DO, END, ON, and IF 
statements, the phase can detect when the 
logical end-of-program indication is found. 
If there are more records after the end of 
the external procedure, they are ignored. 



If the statement following a label is 
subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is re- 
accessed, and the entries associated with 
the statement are modified (see Appendix 
C.2). 



Chain s Constructed by Read-In 



If an end-of-f ile indication is encoun- 
tered before the logical end of the pro- 
gram, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 

The output of the Read-In Phase provides 
a syntactically correct output string; a 
table of entry and statement labels; chains 
of coded diagnostic messages; a set of 
switches specifying compilation content 
details; a set of chains linking statements 
of a particular type, to facilitate subse- 
quent scanning; and optionally, a listing 
of the source text. 



To provide rapid scanning in the 
dictionary phases, the following chains are 
constructed by the Read-In Phase: 

The CALL chain 

The PROCEDURE-ENTRY-BEGIN chain 

The DECLARE chain 

The ALLOCATE chain 



Erro rs and Diagnostic Messages 



Statemen t Numbering 



All statements are given a sequential 
number. This includes each compound state- 
ment, each statement contained in a com- 
pound statement, block and group delimiting 
statements, and null statements. The ELSE 
clause is not regarded as a statement for 
numbering purposes. The numbering of the 
statement is indicated on the source list- 
ing. Diagnostic messages also refer to 
these statement numbers. 



As the source text is scanned it is 
syntactically analyzed. Keywords are iden- 
tified and passed as valid only if they may 
legally appear within the type of statement 
being diagnosed. However, consistency of 
attributes and options within a statement 
is not normally analyzed. This is left for 
Phase EK. 

When a syntactical error is detected, an 
attempt is made to correct it and an 
appropriate diagnostic message is generat- 
ed. The main aim of the Read-In Phase is 
to present syntactically correct text to 
subsequent compiler phases. Certain cor- 
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rections are performed without prejudicing 
the complete compilation. 



Detected errors cause a diagnostic mes- 
sage to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
matter, statement numbers, and so on). The 
message is decoded and printed out by the 
Error Editor. 



Initial Labels 



Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseu do- assignment statements in 
text, and. then handled as if they were 
normal labels. 



Where an error makes it impossible for 
the scan of a statement to continue, the 
statement is terminated correctly at such a 
point as to leave the statement syntacti- 
cally correct. The text between that point 
and the next semi-colon (not in a comment 
or character string) is skipped. The diag- 
nostic messages produced in these circum- 
stances will include at most the first ten 
characters of the text that is skipped. 



T he Output String 



The output string is so arranged that a 
complete statement never spans storage 
blocks. One of the conditions of a suc- 
cessful compilation is that the output 
resulting from any statement must not 
exceed the block. This restriction, howev- 
er, does not apply to DECLARE statements. 
Formats of the statements appearing in the 
output string are given in Appendix D.2. 



Identifiers 



All identifiers which are not recognized 
as keywords in the source text appear in 
the output string. 



STRUCTURE OF THE READ- IN LOGICAL PHASE 



The Read-In Phase can occupy 16K bytes 
of storage for any one pass. A storage map 
for this phase is shown in Figure 5. 
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1 


CV 
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1 
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1 


CP 


1 


CT 


1 


CW 



PASS 1 PASS 2 PASS 3 PASS U PASS 5 



Figure 5. Storage Map for the Read-In Phase 

The Read-In Phase consists of five phas- 
es or passes, each containing at most five 
modules. Modules CA and CC consist of 
common routines which are invoked through- 
out the phase by each of the passes, in 
turn. Modules CE, CK, CN W and CR contain 
separate keyword tables. Details of the 
organization of these tables are given in 
Appendix B. Control for each pass resides 
in modules CI, CL, CO, CS, and CV respec- 
tively. The following description refers 
to the phases by these names. 



Phase CI 



Constants 



All constants appear in the output 
string. 



Operators 



All operators appear in the output 
string. 



During phase CI (the first physical 
phase of the Read- In Phase) the source text 
is read into storage, and character codes 
are converted to an internal form. State- 
ment types are identified,, labels are 
inserted into the dictionary, and statement 
identifiers are replaced by single-byte 
codes (see Appendix D. 1). 

A record is kept of block nesting levels 
and counts to enable a check to be made for 
the logical end-of-program indication. In 
order to do this, certain statements have 
to be either partially or completely ana- 
lyzed in this pass. 
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These statements are: 



Phase CV 



PROCEDURE-END 
BEGIN-END 
DO- END 
IF-THEN-ELSE 
ON 

If the SOURCE option has been requested, 
a listing of the source program, with the 
statements numbered by the compiler, is 
printed out onto the specified output medi- 
um. 



This phase processes the output from 
earlier phases. In order to assist subse- 
quent processing, chains are constructed 
for PROCEDURE, ENTRY, BEGIN, CALL, ALLO- 
CATE- and DECLARE statements. 



THE DICTIONARY LOGICAL PHASE 



Phase CL 



The output from phase CI is processed 
and the statement types listed below are 
analyzed in greater detail: 



ENTRY 


FREE 


PROCEDURE 


WAIT 


DO 


READ 


Iterative DO 


WRITE 


RETURN 


DELETE 


GO TO 


UNLOCK 


DELAY 


LOCATE 


DISPLAY 


REWRITE 



If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary as required. 



Phase CO 



The output from phase CL is processed. 
In particular, the DECLARE, ALLOCATE, and 
CALL statements are analyzed in greater 
detail. The syntax of attributes is 
checked, but their consistency is analyzed 
during phase EK. If the source program 
does not contain any of these three state- 
ments, this pass is not invoked. 

If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 



Phase CS 



The output from phase CL or CO is 
processed. In particular, the syntax of 
input/output statements is analyzed, 
together with the FORMAT statement. If the 
source program contains no input/output 
statements, this pass is not invoked. 



The Dictionary Phase forms a dictionary 
of identifiers, by first analyzing PROCE- 
DURE, BEGIN, DECLARE, and ENTRY statements. 
The text is then scanned for contextual use 
of identifiers, constants, and pictures. 
Finally, every identifier and constant in 
the source text is replaced by a reference 
to its respective dictionary entry. Dic- 
tionary entries are made during this phase 
for all implicitly defined identifiers. 
The formats of dictionary entries appear in 
Appendix C. 



Constructing and Accessing the Dictionary 



The dictionary, during the construction 
stage, comprises two parts, the hash table 
and the dictionary proper. 

To facilitate a search through the dic- 
tionary for an entry with a particular BCD, 
a method is used of dividing the dictionary 
into areas. Each area is characterized by 
a property of the BCD of each entry in it. 
In practice, these areas are not contiguous 
but are chained lists, each item in the 
list being one dictionary entry long. 

The start of each list is in a table, 
known as the hash table. The association 
of a particular identifier with a list, 
i.e. the characterization of an area, is 
achieved by deriving from a given BCD an 
address in the hash table. 

"Hashing" is a process of reducing the 
length of the internal representation of 
the BCD to one word. This is done by 
adding successive four-byte lengths of the 
BCD into one four-byte register. This is 
then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particular BCD. All 
identifiers which hash to the same address 
are placed in a chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 

If TOM, DICK, and HARRY occur in the 

same DECLARE statement in that order, and 

they all hash to the same address in the 
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hash table, the address in the hash table 
will point to HARRY'S entry, which contains 
the address of DICK, which, in turn, con- 
tains the address of TOM. 

When no further BCD entries are to be 
made in the dictionary, and all BCD iden- 
tifiers in the source text have been 
replaced by dictionary references, the hash 
table is deleted. 



Testing for Consistent Attributes 



a function, and also the type of data to 
which the expression in a RETURN 
(expression) must be converted. These need 
not be the same: there must therefore be 
provision for two data descriptions for 
each label. A PROCEDURE or ENTRY statement 
may specify parameters. The descriptions 
of these identifiers, obtained from DECLARE 
statements or default rules, are used for 
prologue construction, but not for paramet- 
er matching. Any data description given on 
these statements is to be used for conver- 
sion at a RETURN (expression) , but not for 
determining the result returned by a func- 
tion reference. 



A test is made at the start of each list 
of attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 



Compiler Pseudo- Variables and Functions 

Expressions specified for array bounds, 
string lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed 
immediately following the BEGIN, PROCEDURE 
or ALLOCATE statement to which the declared 
variable belongs. The expression results 
are assigned to pseudo-variables generated 
by the coirpiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo-variable contains the dictionary 
reference of the variable and information 
concerning the destination of the 
expression. Compiler functions with a 
format similar to the pseudo- variables are 
also created. The function result is the 
specified array bound, or string length. 
Compiler functions are created for two 
purposes: first, to set bounds for base 
elements of structures when the structure 
bound is an expression, or to set the 
bounds of temporary arrays; and secondly, 
to set the storage address of a dynamically 
defined item immediately before its use. 
The formats of all the compiler 
pseudo- variables and functions appear in 
Appendix D.8. 



Dictionary Entries for Entry Points 



A PROCEDURE or ENTRY statement may have 
more than one label. Each label must have 
a data description to indicate the type of 



Parameter d 
eter matching, 
for determini 
by a function 
by the sourc 
laration. If 
and implicit 
data descripti 
tion can be gi 



escriptions for use in param- 
and data description^ used 
ng the type of data returned 
reference, may be specified 
e programmer in an ENTRY dec- 
these are not given, default 
rules must be used to build a 
on, but no parameter descrip- 
ven. 



Given the foregoing requirements, the 
dictionary entries describing an internal 
entry point are as given in Figure 6. 

The set of dictionary entries A, B, C, 
D, E is repeated for each label associated 
with the PROCEDURE or ENTRY statement. The 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 

The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 

The entries type 1 of PROCEDURE and 
ENTRY statements belonging to a single 
procedure are chained together in a circu- 
lar manner. If there are no ENTRY state- 
ments the entry type 1 of the PROCEDURE 
statement points at itself. 

External entry points are described by 
dictionary entries termed entry type 4. 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 

Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6. 
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Note: There is an entry E for each parameter described in D. 
Figure 6. Dictionary Entries for an Internal Entry Point 



Phase EG 



main functions. The 
up a hash table, and to 



Phase E3 has two 
first is to set 
insert the label entries left in the dic- 
tionary by the Read- In Phase into hash 
chains. The second function of the phase 
is to create dictionary entries for PROCE- 
DURE, BEGIN, and ENTRY statements, and to 
construct chains linking entries of parti- 
cular types. 



For PROCEDURE- BEGIN statements, entry 
type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A. containing block chain is also set up to 
link each entry with that of its containing 
block. 



On the appearance of PROCEDURE state- 
ments, circular PROCEDURE-ENTRY chains are 
initialized to link the entry type 1 dic- 
tionary entries of the PROCEDURE and ENTRY 
statements of the same block. The formal 
parameter list is scanned, and formal par- 
ameter type 1 entries are • created and 
inserted into the hash chain. Details of 
the PROCEDURE- ENTRY chains appear in Appen- 
dix C.2. 



The attribute list is scanned and an 
options code byte is created in the entry 
type 1 (see Appendix C.2). A check is then 
made for invalid and inconsistent attri- 
butes. CHARACTER and BIT attributes are 
processed, and second file statements (see 
Appendix D.8) are created if necessary. 
Precision data are converted to binary, and 
dictionary entries are created for pictures 
(see Appendix C.7). 
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Statement labels are scanned and their 
entry type 2 dictionary entries are creat- 
ed. The relevant data bytes in the dic- 
tionary are completed by default rules (see 
Appendix C.3) . 

For ENTRY statements, entry type 1 dic- 
tionary entries are created (see Appendix 
C.2), and the circular PROCEDURE-ENTRY 
chain is extended. Formal parameters, 
attributes, and labels are processed in a 
similar manner to those for PROCEDURE 
statements, except that the options code 
byte is not created. 



Phase EI 



Phase EI scans the chain of DECLARE 
statements set up by the Read- In Phase, and 
modifies the statements to assist Phase EK 
as follows: 



Structure Level Numbers; 
verted to binary. 



these are con- 



Factored Attributes : parentheses enclosing 
factored attributes are replaced by special 
code bytes, so that Phase EK can distingu- 
ish them easily. A factored attribute 
table is set up. It consists of slots 
corresponding to each factored level. Each 
slot contains the address of the attribute 
list associated with that level, and the 
address of the slot for the containing 
level. 

The following attributes are processed: 

DIMENSION: dimension table entries (see 
Appendix C.8) are created in the dictionary 
and the source text is replaced by a 
pointer to the entry. Fixed bounds are 
converted to binary and inserted in the 
table. A second file statement (see Appen- 
dix D.8) is created at the end of the text, 
for adjustable bounds, and a pointer to the 
statement is inserted in the dimension 
table. Identifiers with identical array 
bounds share the same dimension table. 

PRECISION: precision and scale constants 
are converted to binary. 

INITIAL: dictionary entries are created 
for INITIAL attributes. 



INITIAL CALL: 



second file statements are 



created for INITIAL CALL attributes. 

C HARACTER and BIT: fixed length constants 
are converted to binary; a code byte marker 
is left for * lengths (see Appendix C.8). 
Second file statements (see Appendix D.8) 
are created for adjustable length con- 
stants, and the source text is replaced by 
pointers to the statements. 



DEFINED : second file statements (see 
Appendix D.8) are created and the source 
text is replaced by pointers to the state- 
ments. In the case of DEFINED attributes 
with iSUBs, the iSUBs are made to precede 
their coefficient expressions. The syntax 
of the isUB list is also checked. 

POSITION: the position constant is con- 
verted to binary. 

PICTURE: a picture table entry (see Appen- 
dix C.7) is created and inserted into the 
picture chain; similar pictures share the 
same picture table. The source text is 
replaced by a pointer to each entry. 

USES and SETS: USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 



LIKE: 



BCD entries are created for iden- 



tifiers with the LIKE attribute. 

LABEL : if the LABEL attribute has a list 
of statement label constants attached, a 
single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 



All other attributes, 
constants are skipped. 



identifiers, or 



Phase EL 

Phase EL, consisting of modules EK, EL, 
and EM, scans the chain of DECLARE state- 
ments constructed by the Read- In Phase. 

An area of storage known as the attri- 
bute collection area is reserved. This is 
used to store information about the iden- 
tifiers, and has entries of a similar 
format to that for dictionary entries. 

Complete dictionary entries are con- 
structed for every identifier found in a 
DECLARE statement. These identifiers can 
be one of the following types : 

1. Data Items (see Appendix C.4) 

2. Structures (in this case, the 'true' 
level number is calculated) (see 
Appendix C.4) 

3. Label Variables (see Appendix C. 4) 

4. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 

6. Parameters (see Appendix C.7) 
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Identifiers appearing as multiple dec- 
larations are rejected and a diagnostic 
message is given. 



The attributes to be associated with 
each identifier are picked up in three 
ways. 

First, the attributes immediately fol- 
lowing the identifier are stored in the 
attribute collection area. 

Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch core storage by 
Phase EI. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic mes- 
sages are given. 

Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. 

After the dictionary entry has been 
made, further processing (e.g. linking of 
chains, etc.) must be done in the follow- 
ing cases: 

1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 

5. Arrays having adjustable bounds 

6. GENERIC identifiers 

7. structure members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 



The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a' function. If this has pre- 
viously been given in a DECLARE statement 
nothing further is done, otherwise entry 
type 2 and 3 dictionary entries are con- 
structed from default rules (see Appendix 
C.2). If this default data description 
does not agree with the description derived 
from the PROCEDURE or ENTRY statement, a 
warning message is generated. 

At each PROCEDURE entry, the chain to 
the ENTRY statement entry type 1 is fol- 
lowed. Each statement is treated in a 
similar manner to that for a PROCEDURE 
entry type 1. 

The CALL chain is then scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a dic- 
tionary entry for an EXTERNAL procedure is 
made (see Appendix C.2), using default 
rules for data description. Before making 
the entry, the identifier is checked for 
agreement with any of the built-in function 
names. If there is agreement,, a diagnostic 
message is generated, and a dummy diction- 
ary reference is inserted. 

If an identifier is found, it is 
examined to see if it is an undefined 
formal parameter. If it is, the formal 
parameter is made into an entry point, 
again using default rules for data descrip- 
tion- If it is not, or if the declaration 
of the formal parameter is complete, the 
type of entry is checked for the legality 
of the call. A diagnostic message is 
generated if the item may not be called. 
In all cases, the item called is marked 
IRREDUCIBLE if it has not previously been 
declared REDUCIBLE. 



Phase EW 



After the declaration list has been 
fully scanned and processed, it is erased. 



Phase EP 



Phase EP first conditionally marks later 
phases as "wanted* or 'not wanted, 1 accord- 
ing to how certain flags in the dictionary 
are set on or off. This assists in the 
load-ahead technique. 



Phase EW is an optional phase, loaded 
only if any LIKE attributes appear in the 
source program. 

This phase scans the LIKE chain which 
has been constructed by Phase EK, and 
completes . the dictionary entry for any 
structure containing a LIKE reference. 
When a structure in the LIKE chain is 
found, its validity is checked, and dimen- 
sion data and inherited information are 
saved. The dictionary is scanned for the 
reference of the "likened" structure and 
the entry is checked for validity. 
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This dictionary entry (see Appendix C.4) 
is copied into the dictionary* with altera- 
tions if there is a difference between the 
original structure and this structure with 
regard to dimensioned data. If both struc- 
tures have dimensions a straight copy is 
made; if the structure with the^-LIKE attri- 
bute has dimensions and the likened struc- 
ture has not, the dimension information is 
added to the copy; if the structure with 
the LIKE attribute is not dimensioned and 
the likened structure is, then the dimen- 
sion data is deleted from the copy. Inher- 
ited data is added to the copy. If an 
error is found, the structure with the LIKE 
attribute is deleted and a base element 
copy of the master structure is inserted 
instead. Where copies of entries occur 
which refer to dimension tables with varia- 
ble dimensions, the dimension table entry 
is copied, and new second file dictionary 
entries and statements are created. Simi- 
lar entries must be made if the structure 
item has been declared to be an adjustable 
length string, or has been declared with 
the INITIAL attribute. 



Phase EY 



programmer-named ON conditions. If no ref- 
erence is available, a new dictionary entry 
is made. The identifier is then replaced 
in the text by the dictionary reference* 

If a constant marker is found, the 
dictionary is scanned to check if the 
constant is present. if it is not, a new 
dictionary entry is made (see Appendix C-7) 
and the resulting reference replaces the 
constant in the text. 

If a P FORMAT marker is found, the 
dictionary is scanned for a picture entry 
in agreement. If there is no agreeing 
entry, a new dictionary entry is made (see 
Appendix C.7) and the picture chain is 
updated. The dictionary reference replaces 
the format marker in the text. 

The CALL chain is removed from CALL 
statements. The appearance of PROCEDURE, 
BEGIN, END, and DO statements results in 
adjustments to the level and count stacks. 
If statement introduction code bytes appear 
(such as SN, SL, CL, and SN2) , the current 
statement number is updated. All data 
associated with the PROCEDURE, BEGIN, 
ENTRY, and DECLARE statements is removed, 
leaving only the statement identification 
and the keyword. 



Phase EY is an optional phase which 
processes all ALLOCATE statements in which 
attributes are declared. 



Phase FE 



The second file is scanned first and all 
pointers to the dictionary are reversed. 
All ALLOCATE statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE state- 
ment for an item are collected together. 

A copy,, '"of the dictionary entry of the 
allocated item is then made (see Appendix 
C.4), and the ALLOCATE statement is set to 
point to it. The dictionary entry is 
completed by including any attributes given 
on the ALLOCATE statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the ALLO- 
CATE statement. 



Phase FA 



Phase FA scans the text sequentially. 
If, during the scan, qualified names are 
found with subscripts attached, they are 
reordered so that a single subscript list 
appears after the base element name. The 
dictionary is scanned and references 
obtained for any identifiers which are, 
contextually, file or event variables, or 



When an identifier is found, the hash 
chain is used to scan the dictionary for a 
valid entry. If one is found, its dic- 
tionary reference replaces the identifier 
in the output text. If no valid entry is 
found, and the BCD does not agree with any 
entry in the tables of BCDs of PL/I built- 
in functions, then a dictionary entry is 
made as if the identifier was declared in 
the outermost procedure. However, if the 
BCD agrees with a function name, and it is 
not in a SETS position, a function entry is 
made in the dictionary, and its reference 
is used to replace the identifier. 

If a left parenthesis is found, the 
previous dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Appendix D.l). 

Checks are also made for the positions 
of function references in assignment 
statements. Any dictionary references 
encountered in the input file are moved 
directly to the output file. 

PROCEDURE, BEGIN, DO, and END statements 
cause the current level count to be updat- 
ed. 
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Phase FI 



Phase FI scans the text and checks, 
where possible, the validity of dictionary 
references found. References in a GOTO 
statement are checked that they refer to 
labels or label variables and that the 
subsequent branch is valid. The code byte 
for GOTO is changed to GOOB (see Appendix 
D.l) if the branch goes outside the current 
block. 

References are checked if they appear 
where a file is expected. Items in data 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists,. 

Any errors which are found cause diag- 
nostic messages to be generated and dummy 
references to be placed in the text in 
place of erroneous references. 



Phase FK 



Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 
their dictionary references. Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 



examined. If the BCD is SYSIN or SYSPRINT, 
the dictionary reference of the file entry 
is placed in a slot in the communications 
region. 



A check is made to ensure that formal 
parameters do not appear in CHECK and 
NOCHECK lists . A single dictionary entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1- 

When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT,' or a 
variable. 

Dictionary entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block. Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 

All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 



A further, 
this phase i 
ments for all 
dictionary re 
inserted by p 
severe error), 
found in the 
is aborted. 



quite distinct, function of 
s to substitute error state- 
statements containing dummy 
ferences (which have been 
revious phases on detecting a 
If a dummy reference is 
second file, the compilation 



Phase FO 



Phase FO makes a dictionary entry for 
each ON condition mentioned inside a block. 
For ON CHECK conditions multiple dictionary 
entries are made (see Appendix C.7), one 
for each BCD. If a similar condition is 
mentioned more than once in a block, only 
one dictionary entry is made for that 
condition, except for file conditions, ON 
CONDITION, and ON CHECK, when separate 
dictionary entries are made for each dif- 
ferent BCD name. 



Wherever an element of a label array is 
initialized by appearing as a statement 
label, an assignment to a compiler label 
has been inserted by the Read-In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 



Phase FQ 



SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 

The dictionary entries for each BCD name 
associated with file or CONDITION condi- 
tions are checked and, if in error, the ON, 
SIGNAL, or REVERT statement is replaced by 
an error statement. A diagnostic message, 
is generated. 

The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 



Phase FQ checks the validity of each 
item in the PICTURE chain in the dictionary 
(see Appendix C7). 

The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 

Invalid pictures cause appropriate diag- 
nostic messages to be generated. 
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Phase FT 



Phase FV 



Phase FT performs certain housekeeping 
tasks. These are as follows: 



Phase Fv scans the second file and 
reverses the pointers to the dictionary. 



The second file entries are scanned 
and pointers to each entry are insert- 
ed in the associated dictionary entry 
(see Appendix C.7). 



Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Appendix C.4). 



Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 



Dimension tables are separated for 
items which are not in structures, but 
which are arrays having similar 
bounds, but with different element 
lengths. 



Items which are members of structures 
and which have "inherited" dimensions, 
i.e. are contained in a structure 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are not constant, 
second file statements (see Appendix 
D.8) are set up to initialize the 
bounds in the object time dope vector. 



Items which have expressions to be 
evaluated at prologue time, e.g. par- 
ameter descriptions for entry points 
and defined items, are placed in the 
AUTOMATIC chain for the appropriate 
block. 

The dictionary entry for any item 
described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
modes sharing the same picture table 
are now placed in separate tables. 

The 'dope vector required' bit (see 
Appendix C.5) is set on where neces- 
sary. 

When a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are moved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 



Dictionary entries for DEFINED data are 
completed (see Appendix C.4 and C.5). 
Overlay and correspondence defining are 
differentiated between, as are static and 
dynamic defining. A preliminary check of 
the validity of defining is also carried 
out. 



When PROCEDURE and BEGIN statements are 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 

When ALLOCATE statements are found, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 

When a reference to dynamically defined 
data is found., the base reference is 
inserted into the text following the 
defined reference. 

When an initial label statement is 
encountered in the main text f it is not 
copied into the output string. 



Phase FX 



Phase FX is an optional phase entered 
only if the XREF or ATR (cross reference 
lister and attribute lister respectively) 
options are specified. It scans the STA- 
TIC, AUTOMATIC, and CONTROLLED chains, and 
the formal parameter lists. 

For each identifier it creates an entry 
in scratch text storage of the form: 



2 bytes 



3 bytes 



3 bytes 



| Dictionary |Text reference | Text chain | 
| reference jto this item j j 

l j. j. J 

This entry is inserted into a chain of 
similar entries in the alphabetical order 
of the BCD of the identifier. 

If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an iden- 
tifier is found in the text, an entry is 
created in a chain of entries from the 
dictionary entry of the identifier. 
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Each member of the chain which rep- 
resents a reference to the identifier, has 
the following form: 



the program, they are expanded into 
assignments and DO groups. 



scalar 



2 bytes 



3 bytes 



r t- 

| Statement number | 
t x. 



Text chain 



Each reference chain for an identifier 
is in scratch text storage. 

The sorted chain of identifiers is then 
scanned, and for each entry in the chain 
the following actions take place: 

1. The statement number of the DECLARE 
statement, if any, in which the iden- 
tifier was declared is printed 

2. The BCD of the identifier is printed 

3. If the ATR option is specified, the 
dictionary entry of the identifier is 
analyzed and its attributes are print- 
ed 

4. if the XREF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number con- 
tained in each entry is printed 

Finally, all scratch storage is released 
and control is passed to the Pretranslator 
Phase. 



THE PRETRANSLATOR LOGICAL PHASE 



The purpose of the Pretranslator Phase 
is to expand those statements in the lan- 
guage that can be broken down into simpler 
statements, and to insert explicitly gener- 
ated statements in place of implied ones. 

Second level markers (see Appendix D.l) 
are removed from internal compiler codes, 
and some of the I/O statements are changed 
into a form more suitable for the pseudo- 
code phase. 

Argument lists are examined and the 
matching of arguments with parameter 
descriptions takes place, with temporary 
variables being created where necessary, 
e.g., where data conversions are required. 

If the compilation contains ON CHECK 
conditions the appropriate calls to the 
library routine are provided. 

Any structure assignments containing the 
BY NAME option are processed. 

If any structure assignment statements 
or structures in I/O lists are detected in 



If the program contains any array 
assignments, or array expressions in I/O 
lists, these are expanded into DO loops and 
scalar assignments or expressions. 

If the program contains iSUB references* 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 



Additions to the Text 



In addition to changing the content of 
the text, the Pretranslator introduces some 
new symbols and grammatical forms into the 
source text. These are as follows: 

The Umbrella Symbol: this is designat- 
ed by the symbol code X'SE** which is 
used to introduce a literal as an 
operand. It is used only as a bound of 
a DO loop # or in a call of the dope 
vector pseudo-variable. 

Statements within statements: a list 
of statements may be introduced within 
another statement. In this case the 
inserted list is enclosed in parenthe- 
ses. Statements in the list are given 
no statement number field, but they 
have semi- colons at the end. 



I/O statements: 



the form of I/O state- 
ments is changed considerably during 
the pretranslator phases, as explained 
in the description of Phase GA. 



BOY 



and SELL statements : special 



statements are introduced for manipula- 
ting temporary storage at object time; 
they have a form similar to ALLOCATE 
and FREE statements. 

Temporary Sto rage: Pretranslator phas- 
es create temporary variables for func- 
tion and procedure calls where the 
arguments do not match the final param- 
eters, where expressions appear as 
arguments, for control variables for DO 
loops in array and structure assign- 
ments, and for iSOB defined subscript 
lists. The Pretranslator has no mecha- 
nism for evaluating expressions. 
Therefore, temporaries which have no 
data type are created for expression 
arguments with no parameter descrip- 
tion. The data type of these temporar- 
ies is completed by the Translator 
generic phase when the resultant data 
type of the expression has been deter- 
mined. 



Section 2 (Compiler Phases): Pretranslator Logical Phase 35 



When the Pretranslator creates a tem- 
porary from an argument which contains 
any array with adjustable bounds or 
adjustable string length, compiler 
functions (see Appendix D.8) .are gener- 
ated in-line, to set up the adjustable 
quantities at object time, to enable 
storage of the correct size to be 
acquired by means of the BUY statement. 



The temporary variables created by the 
Pretranslator have dictionary entries 
similar to variables declared in the 
source program, except that the tempo- 
raries do not have BCD names. 



Phase GA 



Phase GA removes all second level mark- 
ers from internal character codes (see 
Appendix D.l). It then reorders the 
options so that either EDIT, DATA, or LIST 
options appear last. 



In data lists the DO specification is 
moved so that it precedes the relevant 
list, and the END statement is added. 



lists iteration factors are 



In format 
expanded. 



Phase GK 



Phase GK scans the source text for 
function references. If it finds one, it 
inserts a special marker byte before the 
argument list, followed by: 

1. A code byte giving information about 
the type of function, and whether it 
was called with the TASK option 

2. The current statement number 

3. The current block level and count 

This phase also inserts a special argu- 
ment marker before each argument in the 
list, followed by the reference of the 
corresponding parameter and a code byte to 
show whether or not the argument is speci- 
fied in a SETS list. The number of argu- 
ments present is checked against the number 
given as required by the corresponding 
dictionary entry. 



Phase GP 



Phase GP scans the text for procedure 
and function calls with arguments. These 
are detected by the special markers insert- 
ed by Phase GK. 

Temporaries (see Appendix C.4) are 
created for any arguments which are expres- 
sions. (An expression is defined as being 
any sequence of variables and operators, 
other than single variables followed only 
by a subscript list, or only by a defined 
subscript list and then a subscript list) . 
If a parameter description has been 
declared in an entry declaration, the tem- 
porary which is created is of the same type 
as the parameter description. Otherwise, a 
'chameleon' temporary of unspecified data 
type is created, its type being subsequent- 
ly completed when the expression type has 
been determined by the Translator generic 
phase. 

Expressions are scanned for arrays 
(including partially subscripted arrays), 
structures, or the end of the expression,, 
in order to determine the highest form of 
aggregate in the expression, so that the 
correct type of temporary may be created. 

Where the expression contains a partial- 
ly subscripted array, a temporary is creat- 
ed with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 

When single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action may be taken in one of two ways. 

1. If the data types are compatible,, a 
warning message is printed, and a 
temporary is created 

2. If the data types are incompatible, a 
severe error message is printed, and 
the parameter description is ignored 

When the argument is a single partially 
subscripted array which matches the param- 
eter, a special temporary is created which 
has the same dimensionality as the number 
of cross sections in the subscript list, 
and it appears to be defined upon the 
original argument. Code is then generated 
to initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
list. Similar action is taken for partial- 
ly subscripted structures. 

Whenever a temporary is created, a BUY 
statement contained in nested statement 
brackets is inserted in the output text. 
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followed by the assignment of the expres- 
sion or non-matching argument to the tem- 
porary. After the end of the PROCEDURE or 
function call, all the temporaries generat- 
ed in the call are released by means of a 
SELL statement in nested statement brack- 
ets. 

Temporaries are created for constants 
which are specified as arguments to func- 
tions defined by the programmer. 

If GENERIC entry labels are specified as 
arguments to procedures, a special dic- 
tionary entry is made which contains the 
argument and parameter description dic- 
tionary references, to enable the Transla- 
tor generic phase to select the correct 
generic member. 

A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 



assignment, diagnostic messages are issued. 
Any expression containing no structures is 
left unchanged. 

The base elements of the structures are 
found, and if the referenced structures are 
dimensioned, a temporary is created for 
each dimension. It is then added to the 
AUTOMATIC chain for the appropriate block- 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular dimen- 
sion. Base elements are assigned, with the 
temporaries as subscripts, and with scalars 
remaining unchanged. END statements are 
created for the DO loops, and SELL state- 
ments for the temporaries. The statements 
which have been created are nested within 
the original statement. 



Phase HK 



When subscript lists for the number of 
cross sections are being checked, a severe 
error message is printed if a subscript 
list contains too many subscripts, and the 
statement is deleted. 



Phase GU 



Phase GU scans the source text for 
PROCEDURE, BEGIN, and END statements, and 
for statements that may raise a possible 
CHECK condition. 

A list of all items currently checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 

Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of currently checked 
items. If the item appears in the list, a 
SIGNAL CHECK statement is created for it, 
either before the statement concerned (for 
labels and entry names) or after it (for 
variables) . 



Phase HF 



The purpose of phase HF is to detect 
structure assignment statements, possible 
structure expressions in data lists in GET 
and PUT statements, and nested statements,, 
in particular nested structure assignments. 

The leftmost structure in an expression 
or assignment is used as a basis for 
comparison, and if similar structuring is 
not found throughout the expression or 



The purpose of Phase HK is to detect 
array or scalar assignments, possible array 
expressions in I/O lists in GET and PUT 
statements, and nested statements, in par- 
ticular nested assignment statements. 

The leftmost array in an expression, or 
the leftmost array or scalar in an assign- 
ment is used as a basis for comparison, and 
if similar dimensions or bounds are not 
found in the array references, diagnostic 
messages are issued- Any expression con- 
taining only scalars is left unchanged. 

For every dimension in an array a tem- 
porary is bought and added to the AUTOMATIC 
chain for the appropriate block. Iterative 
DO loops are constructed, with the tempo- 
raries iterating between the lower and 
upper bounds of that particular dimension 
of the array. The assignment statement is 
added to the output string with additional 
subscripts where necessary. END statements 
are created for the DO loops, and SELL 
statements for the temporaries. 

The statements which have been created 
are nested within the original statement, 
which is changed to a null statement, 
except when it was a scalar assignment. 

The syntax of pseudo-variables is also 
checked. 



Phase HP 



Phase HP scans the source text for 
references to items defined using iSUBs. 
For each reference found, the subscripts 
are computed for the base array correspond- 
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ing to the subscripts given for the defined 
array. 

The base subscripts are assigned to 
temporaries specially created for this pur- 
pose. The reference, with its subscript 
lists replaced by a list of these temporar- 
ies, is added to the text string. 



er, will appear between the marker and the 
special second- end- of- program marker. The 
end of a block of text will be marked by an 
EOB operator. The program is now assumed 
to be syntactically correct. 



Phase IA 



THE TRANSLATOR LOGICAL PHASE 



The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose of the Transla- 
tor is to convert the output from the 
Pretranslator into a series of "triples" 
(see Appendix D.4). A "triple" is in the 
form of an operator followed normally by 
two operands. 

The translation is achieved by using a 
double stack, with one part for operators, 
and the other part for operands, and 
assigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack* and 
the other weight (the compare weight) 
applies when the operator is obtained from 
the input string. 

When an operator is obtained from the 
input string it is compared with the top 
stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various manipulations of the stack 
items, after which the translation process 
continues. 

For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc., are 
regarded as operators. 

After translation, the text string con- 
sists of operands and operators. All 
statements start with an operator to indi- 
cate a statement number or label, followed 
by the statement type, which may be a 
single operator, as in the case of RETURN 
or STOP, or which may be an operator such 
as a function or subscript marker, followed 
by a list of arguments. This list may also 
include compiler generated statements, 
e.g., DO loops for I/O lists. All I/O 
options are regarded as operators and 
require no markers before them. The end of 
the source text will be marked by a special 
operator, and compiler generated code, 
which may follow this end-of- program mark- 



Phase IA rearranges the source text into 
a prefix form, in which parentheses and 
statement delimiters have been removed, and 
the operations within a statement have been 
so arranged that those with the highest 
priority appear first. 

As operators and operands are encoun- 
tered, they are stored in stacks. Tables 
give the priority of each operator as it 
appears in the input text and in its stack. 

When an operator is found during the 
scan of the source text, its compare weight 
(see Appendix D.4) is tested against the 
stack weight of the top operator in the 
stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to as the compare action. Similarly, if 
the compare weight for the current operator 
found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 
top stack operator. This is referred to as 
the stack action. Normally, the compare 
action is to place the compare operator in 
the stack, and to continue the scan, plac- 
ing any subsequent operand in the stack 
until another operator is found. The nor- 
mal stack action is to generate a triple, 
consisting of the top operator in the stack 
and the top two operands, eliminating the 
items from the stack, and inserting a 
special flag as the operand of the triple 
which is now at the top of the stack. The 
source (compare) item is then compared with 
the new top stack item. 

The output text of the stacking phase is 
in the form of a series of triples, i.e. 
statement types with no operands, and oper- 
ators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 

Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference. Phases IL and IM are marked 
wanted. If it does not, Phases IL, IM, IN, 
10, IP, IQ, MG, MH, MI, MJ, MK, MM, MN, and 
MO are marked not wanted. Phases MB and MC 
are marked wanted when the source text 
contains pseudo-variables or multiple 
assignments; otherwise, they are marked not 
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wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC) . 
If LB and Lc are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and LH are 
marked by Phase I A independently. 



Phase IG 



Phase IG is an optional phase which is 
loaded to process array and structure argu- 
ments to built-in functions. When aggre- 
gate arguments are given for built-in func- 
tions they are expanded by the structure 
and array assignment phases so that the 
built-in functions appear as base elements, 
subscripted where necessary. 

Phase GP examines these arguments, and 
ascertains whether it is necessary to 
create a dummy. If it is necessary, a 
scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would be an invalid 
aggregate assignment. 

Phase IG examines the text for a BUY 
statement for a dummy for an aggregate 
argument to a built-in function, and then 
inserts an assignment triple in the correct 
place in the text. 



The arguments passed to library routines 
are checked for number and type, and a 
conversion inserted where necessary and 
possible. 

The type and location of the result of 
all function invocations is placed in the 
text which- follows the end of the text 
which invoked the function- The resulting 
type of an expression assigned to a 
"chameleon" dummy is determined and set in 
the dictionary entry which relates to the 
dummy. 



THE AGGREGATES LOGICAL PHASE 



The Aggregates Phase consists of two 
physical phases, the structure processor 
(phase JK) and the DEFINED chain check 
(phase JP) . 

The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 

The DEFINED chain check ensures that 
items DEFINED on arrays and structures can 
be mapped consistently. 



Phase IL 



Phase JK 



This phase immediately precedes the main 
generic phase. Its function is to obtain a 
block of scratch storage and place the 
entire built-in function table in that 
area. The starting address of this table 
is then placed in a register,, and control 
is released to the main generic processor. 



Phase JK scans the AUTOMATIC, STATIC, 
and CONTROLLED chains for arrays, struc- 
tures, adjustable length strings, and 
DEFINED items. 

For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made: 



Phase IM 



The offset from the start of the major 
structure 



Phase IM scans the source text for 
procedure invocations by a CALL statement, 
procedure or library invocations by a func- 
tion reference, and assignments to 
"chameleon" dummy arguments (see Phase GP) . 

Any procedure which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function ref- 
erence is also replaced by the appropriate 
family member. 



The padding required to align the ele- 
ments on the correct boundary 

All multipliers of arrays of struc- 
tures. 

For all minor structures and major 
structures the following calculations are 
made: 

Size 

The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 
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Where a structure contains adjustable 4. 
bounds or string lengths, code is generated 
to call the Library at object time. 



Mixed scalar-array- structure- string 
class overlay defining 



For arrays, the multipliers are calcu- 
lated, unless the array contains adjustable 
items, in which case the Library performs 
the calculations. 

For adjustable structures, arrays, or 
strings, code is generated to add a symbol- 
ic accumulator register into the virtual 
origin slot of the dope vector, and the 
accumulator register is incremented by the 
size of the item. 

Calculations are made in a similar 
fashion for arrays of strings (in struc- 
tures or otherwise) with the VARYING attri- 
bute. In addition, code is generated to 
set up an array of string dope vectors 
which refer to the individual strings in 
the array using the dope vector. Code is 
also generated to convert the original dope 
vector to refer to the array of string dope 
vectors, instead of to the storage for the 
array. 

DEFINED items are processed in the fol- 
lowing way: 

Code is generated to set the multipli- 
ers and virtual origin address of cor- 
respondence defined arrays without 
iSUBs in the dope vector of the DEFINED 
items from the defining base dope vec- 
tor. 

Code is generated for overlay defined 
items where either the DEFINED item, 
the base, or both are adjustable. The 
code first maps the DEFINED item, if 
necessary, calculates the address of 
the start of the storage to be used by 
the DEFINED item, and finally, relo- 
cates the DEFINED item using this 
address. 

Dope Vector Descriptor dictionary 
entries and Record Description dictionary 
entries are made for items which need to be 
mapped at object time, or which appear in 
RECORD-oriented input/output statements. 



Phase JP 

Phase JP scans the DEFINED chain, and 
differentiates between the following: 

1. Correspondence defining 

2. Scalar overlay defining 

3. Undimensioned structure overlay defin- 
ing 



In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item may 
validly overlay the elements of the base 
belong to the same defining class, and that 
the base is contiguous. 

In scalar overlay defining, this phase 
checks that the defined item may validly 
overlay the base. 

For undimensioned structure overlay 
defining, this phase checks that the ele- 
ments of the defined item may validly 
overlay the elements of the base. 

For mixed scalar-array-structure-string 
class overlay defining, this phase checks 
that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character), and that 
the base is contiguous. 



THE PSEUDO-CODE LOGICAL PHASE 



The Pseudo-Code Phase accepts the output 
of the Translator Phase, and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 
certain triples and replaces them by 
pseudo-code, until the entire text is in 
pseudo-code form. On completion of this 
phase, control is handed to the Storage 
Allocation Phase in the output stage. 



Pseudo-Cod e Design 



Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 

Pseudo-code is constructed in basic 
units, the majority of which have a stand- 
ard size of three or five bytes. A varia- 
ble sized unit, however, is also available 
to allow flexibility, its length being 
specified by a length code within the unit. 
The formats of pseudo-code instructions are 
shown in Appendix D. 6. 

A unit consists of a one-byte operation 
code followed by normally, a two- or four- 
byte field, or on the other occasions by a 
variable length field. The bit pattern of 
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the operation code 
unit which it heads. 



Pseudo-Code Items 



indicates the type of 



In addition to there being one pseudo- 
code item for each machine instruction 
which could £>e generated, there are also 
pseudo-code items which are produced to 
convey information from one phase of the 
compiler to another. 

These items of information have the same 
format as a pseudo-code item, so that the 
handling and scanning of the source text is 
standardized. They do not, however, appear 
in the final object code. 



Register Description 



In all cases wnere a general purpose 
register appears in pseudo-code, it will be 
described symbolically. When conventional 
registers are required in, for example, 
calling sequences, the registers will be 
referred to physically, as they will be in 
all cases of floating-point register uscige. 



of primary interest to the expression 
evaluation phases, it should be realised 
that all phases which generate calling 
sequences must be aware of the current 
status of arithmetic registers, and gener- 
ate code to save and restore them as 
necessary. 

In the case of parameter registers, 
however, the Register Allocation Phase will 
be able to save and restore them as 
required. 



Temporary Descriptors 



As expressions are evaluated, a series 
of intermediate temporary results are 
obtained. These results, or their address- 
es, may be contained in symbolic or 
assigned registers, in a dictionary ref- 
erence, with or without an index register, 
or in workspace. Temporary descriptor tri- 
ples (TMPD) are inserted in the text to 
enable the correct pseudo-code instructions 
to be generated from the triples. The 
format of TMPD triples is described In 
Appendix D.9. 



Temporary Workspace 



The Use of Symbolic Unassigned Registers 



Whenever a new register is required 
while pseudo-code is being generated, a 
symbolic register counter is incremented by 
one and, subject to this new value not 
being greater than 16,383, it is used as 
the symbolic name of the required register. 
When this register is no longer required a 
DROP pseudo-code item is inserted into the 
text to indicate to the Register Allocation 
Phase that the physical register allocated 
to this symbolic register may be 
reassigned. 



T he Use of Physical Registers 



Physical general purpose registers will 
be used either as arithmetic registers or 
as parameter registers. 

With arithmetic registers, it is the 
responsibility of the pseudo-code genera- 
tion phases to save and restore the reg- 
isters as necessary. This will apply both 
to the general purpose arithmetic registers 
(namely 14 and 15) and to the four 
floating-point registers. Although this is 



A block of temporary workspace is used 
to store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next avai- 
lable workspace location within the block, 
and then update the location pointer, 
whenever the necessity to save an inter- 
mediate result arises. The location of the 
intermediate result is then described for 
later phases by a TMPD in the text. Inter- 
mediate results are only required during 
the execution of single PL/I statements; 
they are never preserved from one statement 
to another. 

At the end of the pseudo-code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 
each Dynamic Storage Area (DSA) by Phase 
PT. 



Phase LA 



Phase LA is a utility phase which 
remains in storage during the whole of the 
Pseudo-Code Phase. It provides the main 
scanning routines to handle input and out- 
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put text during the Pseudo-Code Phase. If 
a triple spans input blocks, then the part 
of the triple in the first block is copied 
into the first four bytes of the second 
block, to enable a complete triple to be 
returned to the user. 

The routine/subroutine directories in 
this publication give a complete list of 
the routines provided, together with brief 
descriptions of their functions. 



Phase LB 



Phase LB scans through the text for 
PROCEDURE, BEGIN, and ALLOCATE statement 
triples. 

Whenever one of these is found, a scan 
is made through the immediately succeeding 
second file statements; this is to permit 
the future initialization of AUTOMATIC and 
CONTROLLED arrays. 

On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 

1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTOMATIC chain in 
the dictionary. For any scalar varia- 
bles that have been declared INITIAL, 
a set. of triples is created and 
inserted into the text. 

2. For ALLOCATE triples, a set of triples 
is inserted if the item has been 
declared INITIAL. 

Phase LB also marks Phase LG (DO-groups) 
as wanted or not wanted; this is done in 
co-operation with Phase IA. 



Phase LD 



Phase LG 



Phase LG scans the text for DO loops. A 
stack is maintained with each entry con- 
taining a description of a Do group- The 
stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made at the top of the 
stack. 

DO specification triples are analyzed 
and expressions are assigned to temporar- 
ies; subscripts in the control variable are 
assigned to binary integer temporaries if 
they are themselves variable. At the end 
of each specification, pseudo-code and tri- 
ples are generated to control the loop. 

Triple operators (see Appendix D.U ) 
peculiar to the specification of DO loops 
are removed from the text. 

For control variables, other than simple 
scalars, text is placed in the DO stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for pseudo- 
variables, subscripts, functions, and 
argument markers. 



Phase LR 



The purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 
by obtaining 4,096 bytes of scratch storage 
and setting stack pointers. The scan 
phase. Phase LA, is initialized and Phase 
MP is marked. 

The translate table for scanning tri- 
ples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first IK area of scratch 
storage. Finally, control is passed to 
Phase LS. 



Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 

When a scalar variable is found, the 
phase constructs two dictionary entries: 
one for the constant, and one for the 
converted constant. 

For arrays, the phase scans the initial 
value string, creating an initialization 
table in the dictionary. Replication fac- 
tors are converted and inserted into the 
table; treatment of the constants is then 
as described for scalar variables. 

Pnase OS converts the constants to their 
specified internal form. 



Phase LS 



Phase LS scans the source text to con- 
vert expression triples to pseudo-code. If 
a triple produces a result, it is added to 
the temporary work stack. 

For the arithmetic triples +,-,*,/,**, 
prefix +, and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source types as operands, is 
inserted in the text. In-line pseudo-code 
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is generated for all operators except ** 
and some complex type * and / operators. 
In these cases. Library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 
from the text. 



The operands of comparison triples GT, 
GE, equals, NE., LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch-on-false is inserted. Otherwise, 
the result is a length 1 bit string. 

For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 
is zero, TMPD triples, containing the 
intermediate result from the top the stack, 
are inserted in the text after the triple. 
The result is a CHARACTER or BIT string or 
a COMPARE operator. 

When subscript triples appear, a symbol- 
ic register number is inserted in the 
triple. The result contains the dictionary 
reference of the array and the symbolic 
register. 

For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 

For add, multiply, and divide functions, 
the function and argument triples are 
removed from the text. Arithmetic type 
in-line pseudo-code is generated, with 
modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 

With pseudo-variable triples, a special 
marker is added to the intermediate result 
stack. 

Other triples which may use an inter- 
mediate result, are examined. If an oper- 
and is zero, two or three TMPD triples, 
containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand 
precede those for the first operand- 



It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text. 

A string dope vector description is 
produced from a standard string descrip- 
tion. 



Phase LW 



Phase LW scans the source text to con- 
vert string triples to pseudo-code. If a 
result is produced it is added to a stack 
of intermediate string results. 

For the comparison triples GT, GE, 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line pseudo- 
code is generated if the operands are of 
known equal lengths less than or equal to 
256 bytes; otherwise. Library calling 
sequences are generated. The triple and 
any TMPD triples are removed from the text. 

In the case of the string triples CAT, 
AND, OR, and NOT, the operands are convert- 
ed to string type by phase LV. Zero 
operands are obtained from associated TMPD 
triples. In-line pseudo-code is generated 
when operands are aligned and are of known 
lengths less than or equal to 256 bytes. 
Lengths must also be equal for and/or 
operators; otherwise. Library calling 
sequences are generated. The triple and 
any TMPD triples are removed from the text, 
and the string result is added to the 
intermediate result stack- 

For TMPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 

A Library calling sequence is generated 
for the BOOL function, and the associated 
triples are removed from the text. Sub- 
script and function triples may produce 
intermediate string results. 



Phase MB 



Phase LV 



Phase LV provides string handling facil- 
ities for the pseudo-code phases. 



Phase MB scans the text for pseudo- 
variable markers and multiple assignment 
markers. A stack of pseudo-variable 
descriptions is maintained, together with 
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the left hand side descriptions of multiple 
assignments when they occur. Pseudo-code 
and triples are generated for pseudo- 
variables and the left hand side 
descriptions of multiple assignments are 
put out in the correct sequence. 



Phase MK 



Phase MK identifies functions which are 
to be coded in-line, and generates, in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 



Phase MG 



Phase MG identifies functions which are 
to be coded in-line, and generates, in 
their place, the pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the 
following functions is found: 



ALLOCATION 


FLOOR 


BINARY 


BIT 


I MAG 


DECIMAL 


CEIL 


REAL 


FIXED 


CHAR 


STRING 


FLOAT 


COMPLEX 


TRUNC 


PRECISION 


CONJG 


UNSPEC 





Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the appropri- 
ate routine is entered to generate the 
pseudo-code. When the end- of -program mark- 
er is encountered the terminating routines 
are entered. 



Phase MI 



Phase MI identifies functions which are 
to be coded in-line, and generates , in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 



MAX 
MIN 



MOD 
ROUND 



If the number of arguments to the MAX or 
MIN functions is greater than these, a 
Library call is generated. 



The scan of the text is conducted by the 
general SCAN routine* and control is passed 
the present phase when one of the following 
functions is found: 

DIM HBOUND 
LBOUND SIGN 
LENGTH 



Phase ML 



Phase ML scans the source text for 
generic entry name arguments to procedure 
invocations. 

Such entry names may be floating arith- 
metic built-in functions or programmer- 
supplied procedures with the GENERIC 
attribute. When one is found, the correct 
generic family member to be passed is 
selected by this phase, depending on the 
entry description of the invoked procedure. 



Phase MM 



Phase MM scans through the source text 
for procedure invocations by a CALL state- 
ment, or for procedure or Library routine 
invocations by a function reference. 

Procedure invocations are replaced by an 
external standard calling sequence, and 
Library routine invocations are replaced by 
an external or internal standard calling 
sequence as appropriate (see Appendix 
D.10) . 



Phase MP 



Phase MP reorders the BUY and SELL 
statements involved in obtaining Variable 
Data Areas (VDAs) for adjustable length 
strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation code is. included 
between further BUYS and BUY triples, which 
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themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. Since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status. 



Phase MS 



Phase MS scans the source text for 
references to subscripted array elements. 

If references are found, pseudo-code is 
generated to calculate the offset of the 
subscripted element in relation to the 
origin of the array. If necessary, further 
pseudo-code is generated to check the sub- 
script range. 



Phase NA 



Phase NA generates pseudo-code for the 
following triples: 

For PROCEDURE' and BEGIN' triples a 
Library call is generated to the FREEDSA 
routine * 



constant), or the invocation count (for a 
label variable). 



STOP and EXIT statements are implemented 
simply by invocation of the appropriate 
Library routine. 

For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a comparison, code 
is generated to convert it to a BIT string, 
if necessary. This BIT string is compared 
to zero, either in-line, or by a call to 
the Library. 

The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the compar- 
ison specified in the IF statement. This 
mask is put into a generated instruction to 
branch if the condition is not satisfied, 
i.e. either to the ELSE clause or to the 
next statement. 

For ON triples, code is generated to set 
flag bits and update the ON-unit address in 
the double-word ON slot in the DSA. 

For SIGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
Library error routine is called. 

REVERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 



For RETURN triples a Library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 
which case code is first generated to 
assign the result to the target field, and 
then the Library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 

GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as one- 
instruction branches. 



Phase NG 



Phase NG generates the calling sequences 
to the Library for DELAY and DISPLAY state- 
ments . 

For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for conver- 
sion. 

For DISPLAY statements, the message must 
be a CHARACTER string, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the Library. 



A GOOB (Go Out Of Block) triple is a 
branch to a label variable, possibly 
subscripted, or to a label in a higher 
block than the current one (a branch to a 
lower block is invalid) . A call is gener- 
ated to a Library epilogue routine, point- 
ing at a double-word slot containing the 
address of the label and the Pseudo- 
Register Vector (PRV) offset (for a label 



Phase NJ 



Phase NJ and its supporting block, NK, 
generate the calling sequences to the 
Library module for the RECORD-oriented 
input/output statements: DELETE, LOCATE*, 
READ, REWRITE, UNLOCK*, and WRITE. 
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For each of these calls, the information 
contained in the options of the source 
statement is passed by a parameter list, 
constructed as follows: 

DC A(DCLCB) 

DC A. (RDV | ignore, integer) | 

DC A (EVENT. scalar*) | 

DC A(KEYTO.SDV|KEYFROM.SDV| 
KEY.SDV) | 

DC A(REQUEST_CODES) 



REQUEST_CODES is a full-word containing 
four control bytes with the following mean- 
ings: 

Byte 1 Operation code 

00 READ 

04 WRITE 

08 REWRITE 

0C DELETE 

10 LOCATE* 

14 UNLOCK* 

Byte 2 Group 1 options code 
04 IGNORE 
08 INTO | FROM 

Byte 3 Group 2 options code 
04 KEYTO 
08 NOLOCK 

Byte 4 Reserved (currently 00) 



Note that null arguments in the paramet- 
er list or REQUEST_CODES are indicated by 
zeros. 



The Record Descriptor Vector (RDV) is 
assumed to have been constructed by earlier 
phases, except in the case of CONTROLLED 
strings or CONTROLLED aggregates, when pro- 
cedure is as follows: 

1. For CONTROLLED aggregates. Phase NJ 
creates a Library call, passing the 
following arguments through registers: 



Register 1 
Register 2 
Register 3 



A(D.V) 
A (DVD) 
A( RESULT. RDV. SLOT) 



2. 



For CONTROLLED strings, the phase gen- 
erates code to construct the RDV in 
the WORKSPACE storage of the state- 
ment, using the dope vector of * the 
string. 



The IGNORE integer is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 



The EVENT scalar is deferred until third 
release. 



The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 



The KEY SDV and KEYFROM SDV are derived 
from their respective options. If neces- 
sary, they are converted to character 
strings. 



Both the parameter list and the 
REQUEST_CODES word are constructed in STA- 
TIC storage- However, if the argument of 
one of the options refers to AUTOMATIC or 
CONTROLLED storage, the parameter list is 
moved to the WORKSPACE storage for the 
statement; the argument is then provided 
just before the Library call is made. 



The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option must be either a file constant or 
file parameter. 



Phase NM 



Phase NM generates the calling sequences 
to the Library modules for OPEN, CLOSE, 
GET„ and PUT statements. 



For OPEN and CLOSE statements, a param- 
eter list is constructed from the options 
given. The options are first checked for 
validity with respect to multiple specifi- 
cations. The arguments on the options are 
checked and converted, if necessary, to the 
correct data type. If no file is specified 
in an OPEN or CLOSE statement, it is 
ignored. The parameter lists are as fol- 
lows: 



♦Deferred 
version . 



features not included in second 
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OPEN DC A(DCLCB) 

DC A(OCB) 

DC A(TITLE.SDV) 

DC A(IDENT.SDV) 

DC A(IDENT.DED) 

DC A(KEYLENGTH) 

DC A(LINESIZE) 

DC A(PAGESIZE) 

CLOSE DC A(DCLCB) 

DC A(IDENT.SDV) 

DC A(IDENT.DED) 

Null arguments are indicated by zero 
address constants. 

For GET and PUT statements* the Library 
call is in three parts. The initializa- 
tion, data transmission (Phase NU) , and the 
termination. The initialization call 
requires a parameter list to be constructed 
from the given options. The options are 
checked for legal combinations and the 
arguments examined. 

The parameter list when a file is speci- 
fied is : 

DC A(DCLCB) 

DC A (next statement) 

DC A (binary integer) if SKIP or 
LINE is given. 

For GET and PUT STRING, the argument to 
STRING is checked, and the parameter list 
formed is: 

DC A(SDV of string argument) 

DC A(DED of string argument) 

The termination Library call has no 
parameters. As for the initialization* the 
routine used depends on the options given 
in the statement. 



Phase NT 



This phase, which is a preprocessor for 
Phase NU, has two functions: 

1. Initialization of a block of scratch 
storage for use by Phase NU 



2. Setting up of INCLUDE matrix and 

Library routine entries for edit- 

directed, STREAM- oriented I/O 
statements 

The phase contains all pseudo-code skel- 
etons used by Phase NU. 4096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is then 
passed to Phase NU. 

If a flag has been passed from Phase NM, 
indicating the presence of edit-directed 
I/O* a scan of the text is performed. Data 
and format list items encountered during 
the scan are associated as far as possible, 
and a sufficient set of Library modules are 
identified for the edit-directed transmis- 
sion specified in the program. The INCLUDE 
matrix is updated and dictionary entries 
are made for the required Library format- 
director routines. 



Phase NU 



Data/format lists in I/O statements 
produce an internal Library calling 
sequence (see Appendix D.10) for each data 
item and format item pair, using registers 
to point at the data item, the data item 
DED, and the FED for the format item. 

Iterations of data items, as in array 
input or output, and of format items, are 
achieved by making DO loops out of the 
iterations. 

The data items are transmitted serially, 
with program flow going from an item in the 
data list, to the corresponding format item 
and then to the relevant Library I/O 
module. On return from the Library module, 
control goes to the code for the next data 
item or, in the case of repeated data 
items, to another iteration of the DO loop. 

Remote format statements are executed in 
a similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 
returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item. However,, 
if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 

An R format item referring to a label 
which is not attached to a format state- 
ment, will cause an object time error 
condition to be raised, and the execution 
to terminate. 
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Phase OB 



8. 



File constant to file parameter 



Phase OB scans through the text for 
compiler functions and compiler pseudo- 
variables (see Appendix D.8). When a 
compiler function is found, pseudo-code is 
generated to access the operands of the 
compiler functions (e.g., string length, 
array bound) „ and to place the operand in 
the location specified by the TMPD follow- 
ing the function. Assignments to compiler 
pseudo-variables are treated in reverse; 
the result from the. TMPD following the 
assignment is stored in the array bound or 
string dope vector slot specified in the 
compiler pseudo-variable. 

Phase OB also scans the text for BUY, 
SELL, and BUY ASSIGN statements. The tem- 
porary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 
the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 



Phase OE 

Phase OE translates the following tri- 
ples into pseudo-code: 

Assignment 

Multiple source assignment 

Multiple target assignment 

ALLOCATE, FREE, BUY, and SELL 

Special assignment 

In-line code is generated for the fol- 
lowing types of ASSIGNMENT triples: 

1. Floating-point to floating-point 

2. Fixed binary to fixed binary 

3. Fixed decimal to fixed decimal 

4. Numeric field to numeric field, if the 
pictures given for the operands are 
identical 

5. CHARACTER string to CHARACTER string, 
if the operands are fixed length and 
not more than 256 characters 

6. BIT string to BIT string, if the 
operands are aligned and multiples of 
8 bits, and not more than 2048 bits 

7. Label to label 



Library calling sequences are compiled 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 
string codes not compiled in-line. 

All other assignment triples are tran- 
slated into the CONV pseudo-code macro. 

If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for process- 
ing by the constant conversion phase, and 
the assignment is translated assuming the 
target type. 

MULTI PLE ASSIGNMENT triples produce the 
same code as for single assignment, except 
that the registers used by the operand 
concerned must not be changed or dropped. 

Library calling sequences are generated 
for ALLOCATE, FREE., BUY, and SELL triples, 
and pseudo-code markers are left in the 
text for insertion of code by Phase QF. 

With SPECIAL ASSIGNMENT triples, if the 
target is a varying or adjustable string, 
storage is obtained if the target is AUTO- 
MATIC, or allocated if the target is CON- 
TROLLED. The assignment is then translat- 
ed. 



Phase OG 



Phase OG inserts calling sequences for 
all the calls to the Library conversion 
routines represented by the CONVERT P/C 
items. It also converts to pseudo-code all 
statement numbers, statement labels, PROCE- 
DURE., BEGIN, PROCEDURE'., BEGIN' , and end- 
of-program triples. 

IGN pseudo-code items and JMP triples 
are removed. The amount of temporary 
working space required by each block of 
program is calculated and placed in the 
workspace dictionary entry (see Appendix 
C.7). 

The format of the text is converted so 
that a pseudo-code item does not span 
blocks . 

The INCLUDE card matrix is formed for 
all the conversion modules required. 



Phase OS 



Phase OS scans through the constant 
chain in the dictionary and converts the 
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constants to the required internal form. 
These are then stored in a constants pool, 
and the offset of each constant from the 
start of the pool is saved in the dictiona- 
ry entry for that constant. 



To permit the correct alignment of the 
constant pool, three scans are made of the 
constant chain; first to convert all double 
word constants, secondly to convert all 
single word constants, and thirdly to con- 
vert all unaligned constants. 



In the first two scans only one pool 
entry is made for constants having the same 
internal form and value. 

A fourth scan is made of the constant 
chain and all constants required to ini- 
tialize static are converted, but instead 
of inserting these constants in the con- 
stant pool, they are moved into special 
dictionary entries constructed by Phase LB, 



THE STORAGE ALLOCATION LOGICAL PHASE 



The purpose of the Storage Allocation 
Phase is to ensure that every item requir- 
ing storage in a PL/I object program 
obtains a unique location of the correct 
size, located on the correct boundary. 
Items requiring storage include PL/I source 
program variables, dope vectors, dope vec- 
tor skeletons, temporary variables, work 
areas, data descriptors, symbol tables, 
addressing slots, register save areas, flag 
areas, etc. Storage locations are allocat- 
ed to items in order of descending align- 
ment requirement to avoid wasting storage 
by padding to the required alignment. 

The Storage Allocation Phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must be 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 

Since all AUTOMATIC and CONTROLLED stor- 
age is obtained dynamically at object time, 
the Storage Allocation Phase generates code 
to relocate dope vectors when the allocated 
storage address is known. 



Phase PD 



Phase PD is the first STATIC storage 
allocation phase. It scans the text, and 
for every second file statement encountered 
sets up a pointer in the associated dic- 
tionary which points to the second file 
statement. It then sorts the STATIC chain 
so that the dictionary entries occur in the 
order in which the storage for their items 
will be allocated. 

Storage is allocated for simple non- 
structured, non-external variables,, RDVs, 
DEDs, SAVE/RESTORE entries, and the BCD of 
entry labels and label constants. Storage 
is also allocated for dope vectors for all 
items in the STATIC chain requiring them, 
with the exception of EXTERNAL items. 

The external section of the sorted 
STATIC chain is scanned and a U-byte 
addressing slot is allocated for each entry 
label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 

The constants chain is scanned and the 
offsets of the storage and dope vectors for 
constants in the constants pool are relo- 
cated. 

The current size of the STATIC INTERNAL 
control section is computed and the result 
is passed via the communications region to 
the next phase. 



Phase PH 



Phase PH is the second STATIC storage 
allocation phase. It scans the AUTOMATIC 
chain and CONTROLLED chain for all items 
requiring a dope vector. 

For each such item a skeleton dope 
vector dictionary entry is generated in the 
STATIC chain (see Appendix C.7). This 
dictionary entry contains a bit pattern 
equal in length to that of the dope vector 
and containing all those values which are 
known at compilation time. In particular,, 
it contains as much of the relative virtual 
origin as is known at compilation time, the 
constant bounds and string lengths, and the 
constant multipliers. 

If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four- byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure. ) If the item is a dynamic 
temporary (temporary type 2) or a CON- 
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TROLLED scalar string, the virtual origin 
slot is relocated by the length of the dope 
vector. 

In all cases the skeleton dope vector 
dictionary entry is pointed at by the 
dictionary entry of the associated item. 

The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, space is allocated in 
the STATIC INTERNAL control section accord- 
ing to the assembled length of the argument 
list. The offset of each skeleton argument 
list is stored in the 0FFSET1 slot of the 
dictionary entry. 

RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes; DVD entries are 
allocated the specified length. 

A scan is made of the section of the 
STATIC chain containing STATIC INTERNAL 
arrays. Storage is allocated for each 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector, then storage is allo- 
cated for the secondary dope vector. The 
number of elements is calculated for INI- 
TIAL arrays and stored in the associated 
INITIAL dictionary entry. 

The section of the STATIC chain contain- 
ing STATIC INTERNAL structures is scanned. 
Storage is allocated for each structure 
according to the size of the structure 
(computed by Phase JK) , and this storage is 
placed on the correct boundary on informa- 
tion supplied by Phase JK.. The structure 
member chain for each structure is scanned 
and the relative offset of each member is 
relocated to the start of the STATIC INTER- 
NAL control section. Further, on the 
structure member scan, secondary dope vec- 
tors are allocated when required, and the 
number of elements is calculated for INI- 
TIAL arrays. 



Appendix C.7), and a chain is set up to and 
from the dictionary entry for the variable. 
The new dictionary entry is joined onto the 
STATIC chain. 

The size of the symbol table is calcu- 
lated, and its offset from the start of the 
STATIC control section is stored in the 
symbol table dictionary entry. Throughout 
the allocation of STATIC storage a location 
counter is maintained to contain the next 
free location in STATIC; this counter is 
increased appropriately. 

All symbol variables require a DED and a 
branch is taken to the routine which allo- 
cates them. 

When a variable is found which requires 
a DED, it is determined whether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 
data that can be obtained by the combina- 
tion of the attributes FIXED/FLOAT, 
BINARY/DECIMAL, LONG/SHORT (default preci- 
sions only) . 

If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there will be only one allocation of stor- 
age for any one type of standard DED. If 
the DED is not of a standard type, it is 
allocated storage of its own. 

If the variable does not already have a 
symbol table dictionary entry (which con- 
tains space for DED information) , a DED 
dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
section is stored in it. A pointer in the 
new entry in the dictionary entry for the 
variable is also set up. 

When all data element descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 



Phase PL 



Phase PP 



Phase PL scans the STATIC, AUTOMATIC, 
CONTROLLED, structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors. 

When a variable is found which requires 
a symbol table, the variable is joined onto 
the chain of symbol variables for the 
particular block. A symbol table dictiona- 
ry entry is created for the variable (see 



Phase PP extracts all ON condition 
entries and places them at the head of the 
AUTOMATIC chain- It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 

All dictionary entries which are totally 
independent of any other variable are 
extracted, and also . placed in the zone 
following the ON conditions. 
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The phase then extracts all dictionary 
entries which depend upon some other varia- 
ble in containing blocks or in the zones 
already extracted, and places them in the 
next following zone. Dependency includes 
expressions for string lengths, expressions 
for array bounds, expressions for INITIAL 
iteration factors, and defined dependen- 
cies. This is repeated recursively until 
the end of the chain. If some variable 
depends upon itself, a warning message is 
issued. 

A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7). A code 
byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e., it does not consist 
entirely of DEFINED items, which do not 
require storage) , and whether or not the 
following zone contains any arrays of VARY- 
ING strings. 



aligned storage is allocated for struc- 
tures. If a structure contains any arrays 
of strings with the VARYING attribute, the 
storage for the secondary dope vector is 
allocated at the end of the structure. 

A pointer is set up in the AUTOMATIC 
chain delimiter to the second file state- 
ment which has been created. 

The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area (VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, storage is allocated for 
DEFINED items. 



Phase QF 



Phase PT 



Phase QF, which constructs prologues, 
scans that text which is in pseudo-code 
form at this time with end- of -text block 
markers inserted. 



Phase PT allocates AUTOMATIC storage, 
scans the CONTROLLED chain, and determines 
the size of the largest dope vector. It 
scans the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
storage for a DSA and compiles code to 
initialize the DSA. 

A two-word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and work- 
space in the DSA is also allocated. 

The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items requir- 
ing them. Code is compiled to copy the 
skeleton dope vector, and to relocate the 
address in the dope vector. 

Storage is allocated for addressing tem- 
poraries type 2 and for addressing con- 
trolled variables, and for the parameters 
chained to the entry type 1. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision vari- 
ables, CHARACTER strings, and BIT strings, 
in that order. 



When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens : 

1. The item is saved if it relates to a 
PROCEDURE statement 

2. The item is omitted if it relates to a 
BEGIN or ON block 

3. The item is passed if it relates to 
neither of the first two conditions 

When a BEGIN statement is found, a 
standard prologue of simple form is gener- 
ated, and code is inserted from second file 
statements (if there are any) to initialize 
the DSA, allocate VDAs and initialize VDAs. 

When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated, dependent on the number of 
entry points, the number of entry labels on 
a given entry point, the number of paramet- 
ers on each entry point, and whether the 
PROCEDURE is a function. 



The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING attri- 
bute* the secondary dope vector is also 
allocated and code is compiled to initial- 
ize the secondary dope vector. Correctly 



The code generated by the prologue con- 
struction phase is partly in pseudo-code 
and partly in machine code. The machine 
cod.e (which is delimited by special pseudo- 
code items) has the same form as the code 
produced by the Register Allocation Phase 
(see Appendix D. 7). 
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At the end of the prologue, the 
statement label item saved earlier is 
inserted to mark the apparent entry point. 
Code is produced to effect linkage to BEGIN 
blocks in such a way that general register 
15 contains the address of the entry point, 
and general register 14 contains the 
address of the byte beyond the BEGIN epilo- 
gue. 

At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 



a parameter to a Library routine. A rou- 
tine is then called which extracts the 
Library call inserted by pseudo-code and 
places it in-line in the text- 
Code is inserted after the Library call 
to initialize the dope vector in workspace 
to point to the allocated storage- Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 

Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. The initialization 
statements are then skipped, and the scan 
continues. 



Phase QJ scans the text 
FREE, and BUY statements. 



for ALLOCATE, 



On finding an ALLOCATE statement, a 
routine is called which does a 'look ahead' 
for initialization statements associated 
with the allocated variable, e.g., adjusta- 
ble array bounds or adjustable string 
lengths, and places the text references of 
each statement in the dictionary entry 
associated with each statement. 

If the allocated item has a dope vector, 
code is generated to move the skeleton dope 
vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block. 

Any adjustable bound expressions or 
string length expressions are then extract- 
ed from the text references, and the 
expressions are placed in-line in the text. 

Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 

Code generated by Phase JK to initialize 
multipliers, etc., is extracted and placed 
in-line, after first loading the variable 
storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 

If the item has no adjustable paramet- 
ers, code is generated to increment the 
accumulator by the size calculated at com- 
pilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 



The action on encountering a BUY state- 
ment is similar to that for the ALLOCATE 
statement, with the following exceptions: 

1. Bound and string length code is in- 
line, bracketed between BUYS and BUY 
statements - there is therefore no 
look ahead 



2. There is no initial value 
associated with temporaries 



code 



3. A slot in the DSA is updated with the 
pointer to the allocated storage for a 
temporary 

The action on encountering a FREE state- 
ment is to generate code to load a paramet- 
er register with the pointer to the allo- 
cated storage for the FREE VDA Library call 
inserted by the pseudo-code. 



THE REGISTER ALLOCATION LOGICAL PHASE 



The purpose of the Register Allocation 
Phase is to insert into the text the 
appropriate addressing mechanisms for all 
types of storage, and to allocate physical 
general registers where symbolic registers 
are specified or required as base reg- 
isters. 

This phase comprises two physical phas- 
es, each with a specific function. The 
first. Phase RA, processes the addressing 
mechanisms, while the second phase. Phase 
RF, allocates the physical registers. 



Phase RA 



If the item has any arrays of varying 
strings,, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 



Phase RA scans the text for dictionary 
references, the beginnings and ends of 
PROCEDURE and BEGIN blocks, and the start- 
ing points of the original PL/I statements. 
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A dictionary reference, when found, is 
decoded into a word-aligned dictionary 
address and a code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 
offset and base is then calculated. 



If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
in a 'step table.' On completion, the table 
is scanned backwards to determine whether 
an intermediate result has been previously 
calculated. The steps which have not been 
previously calculated are then assembled 
into the pseudo-code. 

The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 
address, or if the reference itself is in 
the prologue. 

All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 
at the start and end of the blocks respec*- 
tively. 

At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the Library error 
package is generated, and the error marker 
removed. 

If the STMT option has been specified, 
code is generated at the start of each PL/I 
statement to keep the statement number slot 
in the current DSA up to date. 



Phase RF 



Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
stacked, and is later unstacked at the 
corresponding end. 



Registers are classified as assigned, 
symbolic, or base. 

Assigned registers require the explicit- 
ly mentioned register to be used. If that 
register is not free it is stored. Symbol- 
ic registers may occupy any register in the 
range 1 through 8 . An even-odd pair may be 
requested. " Base registers may occupy any 
of registers 1 through 8. 

When a register is requested, a table of 
the contents of registers is scanned, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look- ahead is performed to determine which 
register it is most profitable to free. 

If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 

At a BALR (Branch and Link) instruction 
it is insured that all the necessary param- 
eter registers are in physical registers, 
and not in storage. 

No flow trace is carried out by the 
compiler. Therefore, the register status 
is made zero at branch-in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved- 

Any coded addressing instructions are 
expanded when found in-line. At a specific 
"insertion point" in a prologue, any 
addressing instructions in the "insertion 
file" are brought in and expanded. 



THE FINAL ASSEMBLY LOGICAL PHASE 



The Final Assembly Phase converts the 
pseudo-code output of the register alloca- 
tion phase into machine code, the principal 
functions being the substitution of machine 
operation codes for pseudo-code operations, 
and the replacement of PL/I and compiler 
inserted symbolic labels by offset values. 

Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source program, parameter 
lists, skeleton dope vectors symbol tables, 
etc. INCLUDE cards are generated to load 
those Library routines required for the 
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execution of the object program. ESD and 
RLD cards are generated for external names 
and pseudo-registers. An object listing of 
the code generated by the compiler is 
produced if the option has been specified 
by the source programmer. 



Phase TA 



Phase tA scans the STATIC chain for file 
constants and OPEN control block entries. 



For file constants a DECLARE control 
block is constructed from the file name and 
attributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT option a Library module is 
called to add environment attributes to the 
DECLARE control block. A dictionary entry 
is constructed, chained from the file con- 
stant, containing the core image of the 
56-byte DECLARE control block. 



For OPEN control block entries an OPEN 
control block is constructed from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, is constructed. This new entry 
contains the 8-byte core image of the OPEN 
control block. 



The contents of the INCLUDE dictionary 
entry are passed to the Library INCLUDE 
card generation module, and Linkage Editor 
INCLUDE cards are produced for Library 
module names returned by that module. 

The four- byte slot ZPRNAM, in the com- 
munications region, is set to contain the 
first four characters of the first entry 
label of the external procedure, for pur- 
poses of object deck serialization. 



Phase TF 



Phase TF scans the text, assigns offsets 
to compiler and statement labels, and det- 
ermines the code required for instructions 
which reference labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 



Phase TJ 



Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 

A location pounter is maintained for 
assembled code, and offsets are assigned to 
labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for instruc- 
tions to reference labels is also deter- 
mined, while attempting to reduce this from 
the amount estimated by the first assembly 
pass. 

This phase also attempts to reduce the 
number of Move (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations. 



Phase TO 

Phase TO produces ESD cards for the 
compiled program. It first makes up six 
standard entries for: 

1. program Control Section (CSECT) (SD 
type) 

2. STATIC internal CSECT (SD type) 

3. Invocation count (PR type) 

4. Entry points to Library routines,, 
IHESADA and IHESADB (ER type) 

If the external procedure has the MAIN 
option, an entry for a one- word CSECT (SD 
type) is made up. Entries are made up for 
all entry labels in the external procedure 
(LD type). 

The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 

The external section of the STATIC chain 
is scanned and entries are" made up for: 

1. Built-in functions and library func- 
tions (ER type) 

2. Files (ER type) 

3. STATIC external variables (SD type) 

4. External entry names (ER type) 

5. Programmer .ON condition names (SD 
type) 



54 



The CONTROLLED chain is scanned and an 
entry is made up for each CONTROLLED varia- 
ble and task name (PR type) . 



Phase UD 



Phase UD initializes those items on the 
STATIC chain not processed by Phase UA. 



Phase TT 



The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables. 



Phase TT scans the text and maintains a 
location counter for assembled code- 



Loader text (TXT) and relocation direc- 
tory (RLD) cards for requested combinations 
of load and punch files are generated. 



Nested procedures are unnested at object 
time by suitable manipulation of the loca- 
tion counter. The offset of each procedure 
from the start of text is left in the 
PROCEDURE entry type 1. 

Compiler labels are numbered for use by 
the object listing phase, and trace infor- 
mation is set up at entry points. 



The second scan starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 

The third scan corresponds in extent to 
the third scan in Phase UA., but generates 
text for arrays, and simple and interleaved 
structures. At the end of this scan, a 
test is made to determine whether the 
external procedure of the program has the 
MAIN option. If so, a one- word CSECT 
(IHEMAIN) is made up, to contain the 
address of the principal entry point to the 
compilation. 

The phase then executes its final scan, 
which extends over the external section of 
the chain, to initialize a CSECT for each 
external variable or external file. 



Phase UA 



Phase UA generates text for the static 
internal CSECT; initializes a CSECT for 
each static external variable; and, option- 
ally (if the LIST option is present), lists 
all the text produced for the static inter- 
nal CSECT and provides suitable comments. 

The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file attri- 
butes, label variable BCDs, and DEDs for 
temporaries. Simple variables found on 
this scan are used, together with the 
labels, to mark the start of the character 
string section of the chain. 

The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and Library 
functions, programmer- defined ON-condition 
names, external files, and label constants. 
Text is made up for the constants pool. 

The third scan of the STATIC chain 
starts at the point left by the previous 
scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 



Finally, any incomplete text and RLD 
cards are punched out, and an END card is 
produced for the compiled program. 



Phase UF 



Phase UF scans the text, and lists, in 
assembly language format, machine instruc- 
tions compiled for the source program. It 
inserts comments in the listing for state- 
ment numbers, statement labels, entry 
points, prologues, and procedure bases. 



THE ERROR EDITOR PHASE 



The Error Editor Phase is entered at the 
end of all compilations. The first phase. 
Phase XA, examines the dictionary and det- 
ermines whether there are any diagnostic 
messages to be printed out. If there are 
none, this phase terminates the compila- 
tion. • If there are diagnostic messages to 
be printed out. Phase XB causes further 
modules to be loaded, which process the 
error dictionary entries and print out the 
appropriate messages. 
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Phase XA 



Phase XA examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no messages to be printed, this 
phase prints out a terminal message and 
completes the compilation. If diagnostic 
messages are required, the phase loads 
modules XB and YA. It then scans down the 
error message chains and marks each error 
dictionary entry with an indication of 
where the text of the associated message is 
to be found. This information is obtained 
from a table in module XF. Then the phase 
calls module XB. 

The text of all error messages is kept 
in modules XG through YX. The messages are 
ordered, by severity, within these modules. 
Module XA will have listed those modules 
which contain messages required for a par- 
ticular compilation. Module XB loads and 



releases these modules, one at a time, and 
extracts the required messages. Having 
loaded a particular module, the phase scans 
down the associated error message chain in 
the dictionary -for error entries associated 
with the module. It accesses the error 
message text and scans it. 

The message to be printed is built up in 
a print buffer in internal compiler code. 
This involves a translation from EBCDIC 
mode* which is used for the message text 
skeleton. The message is completed by the 
insertion of a statement number, an iden- 
tifier, or a numeric value as specified by 
the message dictionary entry. The message 
is segmented, where necessary, to avoid 
spilling over a print line, translated to 
external code, and finally printed out. 

When all error message dictionary 
entries have been processed, module XB 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation. 



56 



SECTION 3: CHARTS AND ROUTINE DIRECTORIES 



This section provides a complete guide 
to the compiler logic, in the form of 
flowcharts and associated tables and rou- 
tine directories, arranged in phase order. 



Flow cha rts 

The flowcharts are presented at three 
levels of detail — overall, logical phase, 
and physical phase. The overall compiler 
flowchart (Chart 00) points to the logical 
phase flowcharts (Charts 01 through 09), 
each of which appears at the head of the 
set of physical phase flowcharts to which 
it points. The physical phase flowcharts 
point (by means of identifiers placed next 
to the blocks) to the various routines 
used. Entry points to physical phases are 
labeled. 

Where transfer is effected between 
modules within a physical phase, the entry 
label into the entered module is shown as 
follows : 

1. Where the means of transfer is a trans- 
fer vector, an asterisk is shown as the 
label on the flowchart, and a note at 
the foot of the chart states that the 
transfer vector table is located at the 
start of the module. 

2. When transfer is made from a decision 
block, the block representing the entry 
is labeled. 

With the exception of "fall-through" 
branches, all branches from decision blocks 
are labeled where possible. Where the 
branch is actually a branch table, this 
fact is indicated on the chart, and the 
label of the branch table is given. 

In some cases, additional labels have 
been given, to assist in following the 
program flow. 



Tables and Routine Directories 



For each physical phase, a table is 
provided, which lists the operations per- 
formed and identifies the routines and 
subroutines involved. Where applicable, a 
routine directory follows the table. This 
provides an alphanumerically arranged list 
of the routines and subroutines contained 
in the phase, and states their function. 



In some cases, a physical phase compris- 
es more than one module; this means that 
routines contained in different modules may 
be listed together in one routine direct- 
ory. To assist in cross-reference to the 
compiler listings, the following convention 
has been adopted: if a routine is contained 
in a module whose label is not identical to 
that of the phase under discussion, the 
label of the containing module is inserted 
in parentheses after the routine name in 
the directory. 



In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
"Subroutines Used" column. The routine 
will not then appear in the routine direct- 
ory for the phase under discussion, but 
will be found in the routine directory for 
the containing phase. 



Chart and Table Id e ntification 

Identification of tables and physical 
phase flowcharts is based on the phase 
label. 
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Chart 00. Overall Compiler Flowchart 



****A1 ********* 
* * 

« ENTRY * 

*************** 



*****A2* ********* 



K* COMPILER * 
* CONTROL * 
♦INITIALIZATION * 
***************** 



*****B1 ********** 

* 01* 
*_*_*-*_*-*-*-*-* 

* COMPILE-TIME 

* PREPROCESSOR * 

* * 
***************** 



*X. 



****D1 ********* 

* RETURN < 

* * 
*************** 



NO 


.* IS IT *. NO 
*. CHAR48 .*.... 
*. .* 

*. .* . 
*. .* 
* YES 




X 
*****02********** • 

* EXFCUTE * 

* FORTY EIGHT * 

* CHARACTER * 

* PREPROCESSOR * 

* * 
***************** . 







*****E2 ********** 

* 02* 
*-*-*-*-*-*-*-*-* 

* READ-IN * 

* LOGICAL PHASE * 

* * 
***************** 



*****F2 ********** 

* 03* 
*_*_*_*_*_*_*_*_* 

* DICTIONARY * 

* LOGICAL PHASE * 

* * 
***************** 



COMPILER CONTROL PERFORMS INITIALIZATION, 
OVERSFES PHASE LOADING, RESOLVES SYMBOLIC 
TFXT AND DICTIONARY REFERENCES AND CONTROLS 
ALL INTERFACES BETWEEN THE COMPILFK ANO OS/360, 



THE COMPILE—TIME PREPROCESSOR ACCEPTS • INPUT CONTAINING 
THE COMPILE TIME STATEMENTS OF PL/I AND 
PRESENTS THE COMPILER WITH THE SOURCE TEXT 
RESULTING FROM EXECUTION OF THESE STATEMENTS. 



THE FORTY EIGHT CHARACTER SET PREPROCESSOR 
ACCEPTS SOURCE PROGRAMS WRITTEN IN THE FORTY 
EIGHT CHARACTER SYNTAX 3F PL/I AND CONVERTS THEM 
INTO SIXTY CHARACTER SYNTAX. 



THE READ-IN LOGICAL PHASE CHECKS THE SYNTAX OF 
THE SOURCE PROGRAM, REMOVES SUPERFLUOUS 
CHARACTERS AND LEAVES CERTAIN CHAINS IN THE 
PROCESSED TEXT TO AID LATER PHASES. 



THE DICTIONARY LOGICAL PHASE CONSTRUCTS THE 
DICTIONARY OF IDENTIFIERS FROM INFORMATION IN 
DECLARE STATEMENTS AND FROM CONTEXT. IT ALSO 
REPLACES BCD IDENTIFIERS IN THE TEXT BY REFFRENCES 
TO THE DICTIONARY. 



******G1 *********** 

PRINT OUT 

* ATTRIBUTE * 

ANO CROSS X. 

* REFERENCE * 

TABLE 

************* 



YES .* ATR/XREF 
....*. OPTION ON 
*. . 



*****H2 ********** 

* 04* 
*-*-*-*_*-*_*_*_* 

*PRE-TRANSLATOR * 

* LOGICAL PHASE * 

* * 
***************** 



THE PRETRANSLATOR LOGICAL PHASE MANIPULATES THE 
TEXT, REARRANGING I/O STATEMENTS, CREATING TEMPORARY 
VARIABLES WHERE PARAMETERS DO NOT MATCH THEIR 
CORRESPONDING ARGUMENTS, CONVERTING ARRAY ANO 
STRUCTURE ASSIGNMENTS TO DO LOOPS, AND REMOVING 
ISU8 EXPRESSIONS. 



*****j 2 ********** 

* 05* 
*-*-*-*-*-*-*-*-* 

* TRANSLATOR * 

* LOGICAL PHASE * 

* * 
***************** 



THE TRANSLATOR LOGICAL PHASE CONVERTS THE 
PL/I SOURCE TEXT TO A COMPUTER-ORIENTED FORM 
CALLED 'TRIPLES'. GENERIC SELECTION IS ALSO 
CARRIED OUT. 



*****K2 ********** 

* 06* 
*-*-*-*-*-*-*-*-* 

* AGGREGATES * 

* LOGICAL PHASE * 

* * 
***************** 



THE AGGREGATES LOGICAL PHASE MAPS ALL 
STRUCTURES ANO ARRAYS TO ALIGN ELEMENTS 
ON CORRECT STORAGE BOUNDARIES. PSEUDO-CODE 
IS PRODUCED TO CARRY OUT INITIALIZATION AT 
OBJECT TIME. 



***** 
*0A * 
* A2* 
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Chart 00. Overall Compiler Flowchart (cont'd) 



***** 

*0A * 
* A2* 



*****A2 ********** 

* 07* 
*-*_*_*_*_*-*-*_* 

* PSEUDO-CODE * 

* LOGICAL PHASE * 

* * 
***************** 



*****g 2 ********** 

* 08* 
*-*-*-*-*-*-*-*-* 

* STORAGE * 

* ALLOCATION * 

* LOGICAL PHASE * 
***************** 



*****C 2* ********* 

* 09* 
*-*-*-*-*-*-*-*-* 

* REGISTER * 

* ALLOCATION * 

* LOGICAL PHASE * 
***************** 



*****02 ********** 

* 1C* 
*—*-*—*_*_*-*-*-* 
♦FINAL ASSEMBLY * 

* LOGICAL PHASE * 

* * 
***************** 



THE PSEUDO-CODE LOGICAL PHASE PERFORMS MANY 
PASSES OVER THE TEXT. EACH PASS CONVERTS SOME 
OF THE TEXT CONTENT TO A FORM ALLIED TO 
ASSEMBLY LANGUAGE, CALLED PSEUDO-CODE. 



THE STORAGE ALLOCATION LOGICAL PHASE SCANS THE 
DICTIONARY AND ALLOCATES OBJECT TIME STORAGE FOR 
ALL IDENTIFIERSi TEMPORARIES AND ADMINISTRATIVE 
REGIONS. PROLOGUES ARE CONSTRUCTED. 



THE REGISTER ALLOCATION LOGICAL PHASE PERFORMS AN 
ANALYSIS OF OBJECT TIME ADDRESSI BIL I TY AND ALLOCATES 
PHYSICAL REGISTERS IN PLACE OF SYMBOLIC ONES. 



THE FINAL ASSEMBLY LOGICAL PHASE ESTABLISHES 
OBJECT TIME BRANCH ADDRESSES AND COMPLETES 
TRANSLATION TO MACHINE CODE. LOADER TEXT IS 
PRODUCED. 



.*. 
E2 *. 
.* IS *. **** 

* LIST *. NO * * 
OPTION ON .*....X* G2 * 



*. 



*****(: 2 ********** 



* PRODUCE * 
♦OBJECT LISTING * 



***************** 
**** 



. * ANY * 
■ DIAGNOSTICS 
*. .* 



*****H2 ********** 

* * 

* PRINT OUT * 

* DIAGNOSTIC * 

* MESSAGES * 

* * 
***************** 



****J2********* 

* RETURN TO * 
♦CALLING PROGRAM* 

* * 
*************** 
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Chart AA. Resident Control Phase Logic Diagram (Modules AA through AM, and JZ) 



****A1 ********* 
* ENTRY FROM * 
►CALLING PROGRAM*. 
v * 

*************** 



ZINIT 

*****A2********** 

* LOAD * 
♦INITIALIZATION * 

...X* PHASE *. 

* IEMAB * 



***************** 



OPNFILES 

*****A3********** 
* OPEN * 
♦SYSIN, SYSPRINT* 
...X*SYSUT1, SYSUT3,*. 
*GET STORAGE, ETC* 



***************** 



* BJILO FIRST * 
.X* HALF OF PHASE *. 

* DIRECTORY * 

* * 
***************** 



* LOAD IEMAF * 
<* AND PROCESS * 

* OPTIONS LIST * 

* * 
***************** 



*****B1**** ****** 

* * 

* * 

* RELEASF IEMAF *. 

* * 

* * 
***************** 



*****83********** 



***************** 



***************** 



*****C 2 ********** 

* PRINT * 

* LIST OF *. 

* OPTIONS * 

* * 
***************** 



.X* 



*****C3********** 

* RELEASE * 
♦INITIALIZATION * 

PHASE *. 

* IEMAB * 
K * 
***************** 



LODFST 

*****£ 4.* ********* 

* LOAD * 

* IEMAM TO * 
...X* MARK LATER * 

* PHASES * 



***************** 



***** Q2 ********** 



**************** 



*****E2********** 

* IEMXX* 
*-*-*-*-*-*-*-*-* 

* CALL A * 

* COMPILER * 

* PHASE * 
***************** 



*****F 3 ********** 

* EXECUTE * 

* IEMAC TO * 
OPEN SYSUT3 *. 

* FOR INPUT * 

* * 
***************** 



. X* 



.*. 
G2 *. 

*. 
WAS IT *. YES 

.* 

. .* 


*****G3********** 

* EXECUTE * 

* IEMAG TO * 

* READ-IN * 

* * 


. *. 
G4 *. 
.* * 
.* MAS IEMAC 

*. 

*• •* 


*. .* 


***************** 


*. .* 


* NO 




* 



*****G5 ********** 



***************** 



.* END *. 
► OF FIRST 

HALF PHASE 
►. LIST 



**** 
* * 
K K2 * 
> * 

**** 



*****H3********** 

* EXECUTE * 

* IEMJZ TO * 
.X* BUILD SECOND *. 

* HALF PHASE * 

* DIRECTORY * 
***************** 



; WAS *. YES 
RETURN TO .*.... 
. ZEND .* 



***** 
*AA * 
* K3* 



ZEND X 

*****K3********** 

* CLOSE DATA * 

* SETS, TIDY * 
...X* UP, PICK UP *. 

* SEVERITY CODE * 

* * 
***************** 



****K4********* 

* RETURN TO * 
.X*CALLING PROGRAM* 

* * 
*************** 
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Table AA. Module AA Compiler Control Resident Control Phase 

r t t 

Main Processing 
Statement or Operation Type 



Routine 



Routine Called 



-H 



Initializes the compiler 

Parameters passed : General register 1 points at 



ZINIT 



the passed parameters 

Entry t o OS/ 360 ; GETMAIN(R), TIME, LINK, SPIE 



LOADW, ABORT 



Converts an absolute address to a dictionary 
reference 

Parameters passed : PARI — any reference to the 

block containing the absolute address; 

PAR2 — the absolute address to be converted 

Parameters returned : PARI — the required 

dictionary reference 

Entry to OS/360 : None 



ZDABRF 



CONSLD, ZUERR, ABORT, 
BLKERR 



Converts a dictionary reference to an absolute 
address 

Parameters passed : PARI — the dictionary 



ZDRFAB 



reference 

Parameters returned: PARI — the absolute 



address 

Entry to OS/360 : None 



CONSLD, TRYMRD, BLKERR 



-H 



Makes an unaligned dictionary entry and 
returns an absolute address 

Parameters passed : PARI — address of entry to 

be made; PAR2 — length of entry 

Parameters returned : PARI — address of entry 

in dictionary 

Entry to OS/360 : None 



ZNALAB 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



+- 



H 



Makes an aligned dictionary entry and returns 
an absolute address 

Parame t ers passed : PARI — address of entry to 



ZDICAB 



be made; PAR2 — length of entry 

Parameters returned : PARI — address of entry 



in dictionary 

Entry to OS/360 : None 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



H 



Makes an unaligned dictionary entry and 
returns dictionary reference 

Parameters passed : PARI — address of entry to 



ZNALRF 



be made; PAR2 — length of entry 

Parameters returned : PARI — reference of entry 



in dictionary 

Entry to OS/360 : None 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



Makes an aligned dictionary entry and returns a 
dictionary reference 

Parameters passed : PARI — address of entry to 



ZDICRF 



be made; PAR2 — length of entry 

Parameters returned : PARI — reference of entry 



in dictionary 

Entry to OS/360 : None 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT 
COSLD 
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Table AA. 
r 



Module AA Compiler Control Resident Control Phase (cont'd) 



Statement or Operation Type 



T T 

Main Processing 
Routine 



Routine Called 



Finds a new text block. Optionally chains the 
new block to the current block and changes the 
status of the current block 

Parameters passed ; PARI — optionally, a 
reference to the current block. PAR2 — a 
status and chain indicator 
Parameters returned; PARI — reference to new 



ZOTXTC 



block; PAR2 — a status and change indicator 
Entry to OS/360 ; None 



CONSLT, TRYMRT, ZUERR, 
ABORT, BLKERR 



Finds the next text block in the chain. 
Optionally, changes the status of the current 
block 

Parameters passed; PARI — a reference to the 



ZCHAIN 



current block; PAR2 — a status indicator 
Parameters returned: PARI — reference of the 



next block in the chain 
Entry to OS/360 ; None 



CONSLT, TRYMRT, BLKERR 



Changes the status of the referenced text block 
Parameters passed ; PARI — a reference to the 



ZALTER 



block 

Entry to OS/360 : None 



CONSLT, BLKERR 



Converts a text reference to an absolute 
address and optionally, does not change 
status of the block. 

Parameters passed ; PARI — reference to be 



ZTXTAB 



converted and option indicator bit 
Parameters returned: PAR2 — the absolute 



address 

Entry to OS/360 : None 



CONSLT, TRYMRT, BLKERR 



Converts an absolute address to a text 
reference 

Param et ers passed : PARI — a text reference to 



ZTXTRF 



the block containing the absolute address; 
PAR2 — the address to be converted 
Parameters returned : PARI — the required text 



reference 

Entry to OS/360 : None 



CONSLT, BLKERR, ZUERR, 
ABORT 



Enters message 'REFERENCED BLOCK NOT IN USE* 
into dictionary and then terminates compilation 

Entry to OS/360 : None 



BLKERR 



ZUERR, ABORT 



■H 



Supplies storage space for scratch purposes. 
Allocation is made in 512 bytes at a time 

Parameters passed: PARI — a count of the 



ZUGC 



number of 512 byte blocks required 
Parameters returned: PARI address of the 



allocated storage 
Entry to OS/360 : None 



TRYMRT, ZUERR, ABORT 
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Table AA. Module AA Compiler Control Resident control Phase (cont'd) 

r 



T T 

Main Processing 
Routine 



Statement or Operation Type 



Routine Called 



Releases scratch storage allocated by ZUGC 
Parameters passed : PARI — a count of the 



ZORC 



number of entries to ZUGC to be released 
Entry to OS/360 : FREEMAIN if storage being 



replaced is outside the guaranteed 4k block 



ZUERR, ABORT 



+- 



Deletes a list of loaded phases 

P arameters passed : PARI — address of list of 



RELESE 



phases to be deleted 
Entry to OS/360 : DELETE 



ZUERR, ABORT 



Deletes a list of loaded phases and passes 
control to either the next requested phase or 
the next named phase 

Parameters passed : PARI — address of list of 



RLSCTL 



phases to be deleted; PAR2 — address of name 

of phase to which control is to be given, or 

zero 

Parameters returned : PARI — load point of new 



phase 

Entry to OS/360 : DELETE, LOAD(EPLOC), LOAD(DE), 



LINK 



Module AD if inter- 
phase dumping is req- 
uired; Module AE if it 
is end of Read-In 
Phase; ZUERR, ABORT 



Loads the required phase and returns control to 
the caller. The phase may be loaded again 



Parameters passed : PARI — address of name of 



LOADX 



phase to be loaded 

Parameters returned : PARI — load point of 



phase 

Entry to OS/360 : LOAD(DE) 



ZUERR, ABORT 



Marks phases as 'wanted' and 'not wanted* 



Parameters passed : PARI — address of 



REQEST 



list of phase names to be marked 'wanted;* 
PAR2 — address of list of phase names to be 
marked 'not wanted 1 
Entry to OS/360t None 



ZUERR, ABORT 



Inserts diagnostic message in the dictionary 



Parameters passed : PAR5 — numeric parameter 



ZUERR 



(if any) ; PAR6 — message number; PAR7 — add- 
ress of text (if any) or dictionary reference 
(if any) ; PAR8 — length of text (if any) 
Entry to OS/ 360 : None 



ZDRFAB, ZDICRF, ZDICAB 



Takes a dictionary reference and points at the 
relevant slot in the dictionary block control 
area (DSLOTS) 

Parameters passed : PARI — dictionary reference 



CONSLD 



Parameters returned: Address of slot in GRA 



Entry to OS/ 360 : None 



None 



L_. 
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Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 
r 



|Main Processing | 

Statement or Operation Type | Routine j Routine Called 
+ 1 

Takes a text reference and points at the jCONSLT | None 
relevant slot in the text block control area | j 
(TSLOTS) j | 

Parameters passed: PARI — text reference | I 


Parameters returned: Address of slot in GRA | I 


Entry to OS/36 0: None 1 1 


_ _____ 4. _ _ J. _ 


_____ -j- _ _ -j- — _ _ — — 

Allocates space for a text block |TRYMRT | DFREE, TFREE, ZUPL* 

| | ABORT 
Parameters passed: Relative track address of | | 


the block (if block is on disk) in RDTTR. | | 
Otherwise RDTTR is zero | j 
Parameters returned: Address of block in GRO j | 


Entry to OS/360: GETMAIN(VC) if storaqe | I 
available. OPEN if no space left for text J | 
blocks j j 
+ + 

Allocates space for a dictionary block | TRYMRD jDFREE, TFREE, ZUPL, 

| | ABORT 
Parameters passed: Relative track address of | j 
block (if block is on disk) in RDTTR. Other- | | 
wise RDTTR is zero j j 
Parameters returned: Address of block in GRO | I 
Entry to OS/360: GETMAIN(VC) if storaqe | 1 
available. Open if no space left for diction- | | 
ary blocks j j 
+ + 

Investigates the dictionary block control used |DFREE | CONSLD, ZUERR, ABORT, 
(DSLOTS), to find which block can be written | | WDREAD, WRTRD, WDWRIT 
onto disk to make space for a different block j j 
in storage j j 

Parameters passed: Relative track address of | 1 
block required in storage in RDTTR. RDTTR=0 if| | 
a block is being created j j 
Parameters returned: Address of block in | | 
storage in BLOKAD | | 
Entry to OS/36 0: None 1 j 
+ + 

Investigate the text block control area | TFREE | CONSLD, ZUERR, ABORT, 
(TSLOTS), to find which block can be written | | WDREAD., WRTRD, WDWRIT 
onto disk to make space for a different block j j 
in storage j | 

Parameters passed: Relative track address of | I 
block required in storage in RDTTR. RDTTR=0 if | | 
a block is being created j j 
Parameters returned: TFREE 1 j 
Entry to OS/360: None I | 


+ + 

Create space in storage by writing on disk | WDWRIT | WRITEX 

Parameters passed: RDTTR=0, BLOKAD contains | j 
address of block that can be written out | | 
Parameters returned: BLOKAD contains address of | | 
block in storage that is now available | | 
Entry to OS/360: WRITE (BSAM), CHECK, NONE | | 
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Table AA. Module AA Compiler Control Resident Control Phase (.cont'd) 



Statement or Operation Type 



Main Processing 
Routine 



Routine Called 



Writes a block onto disk and reads a second one 
into its place in storage 



Parameters passed : RDTTR contains relative 
track address of block to be read. BLOKAD 



WRTRD 



contains address of block to be written 
Parameters returned: NOTTR contains relative 



track address of block in storage 

Entry to OS/ 360 : WRITEtBSAM), CHECK, NOTE 



Reads a block from disk into space already 
available in storage 



Parameters passed : RDTTR holds relative track 
address of block to be read. BLOKAD holds 



WD RE AD 



address of space in storage 

Parameters returned: BLOKAD holds address of 



block in storage 
Entry to OS/ 360 : None 



READX, WRITEX, ZUERR, 
ABORT 



READX 



Writes a block onto disk 



Parameters passed : TEMP4 holds relative track 



WRITEX 



address of space on disk 

Entry to OS/360 : XDAD(WI), WAIT 



-+- 



ZUPL, ZEND 



Reads a block from disk 



Parameters passed : TEMP4 holds relative track 



READX 



address of block on disk 

Entry to OS/ 360 : XDAP(RI), WAIT 



ZUPL, ZEND 



Reads a record from SYSIN 



Parameters passed : PARI — address of input 



ZORD 



area 

Parameters returned : PAR2 — record length 



Entry to OS/360 : GET MOVE (QSAM) 



H- 



None 



Puts a record out to SYSPRINT. Pagination 
(paging action) is performed automatically 

Parameters passed : PARI — address of output 



ZUPL 



buffer 

Entry to OS/360 : POT LOCATE (QSAM) 



Puts a record out to SYSLIN 

Parameters passed : PARI — address of output 



ZULF 



record 

Entry to OS/360 : PUT LOCATE (QSAM) 



PLERRX 



+ 

LFERRX 



Puts a record out to SYSPUNCH 



Parameters passed : PARI — address of output 



ZUSP 



record 

Entry to OS/360 : PUT LOCATE (QSAM) 



SPERRX 
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Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 
r" 



|Main Processing | 
Statement or Operation Type | Routine | Routine Called 
+ + 

Deletes currently loaded phases and passes | ZABORT, ABORT | Module AD if dump op- 
control to the Error Editor j |tion specified; RLSCTL 

Entry to OS/360: LOAD(EPLOC) if dump option | I 
specified | | 
+ ___ + 

Picks up completion code and returns control to | ZEND | ZUPL 
the program that called compiler j | 

Entry to OS/360: TIME, FREEMAIN, DELETE | 1 
1 + 

Handles all program checks | PIH | ZUERR 

Parameters passed: APRINT holds address of | j 


routine wanting to handle interrupt. ARMASK \ \ 
holds mask indicating which interrupts it is j j 
desired to handle j j 

Entry to OS/360: None | | 



Table AA1. Module AA Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



I- 



ABORT 
BLKERR 

CONSLD 

CONSLT 

DFREE 

LFERRX 
LOADX 

LOADW 

PIH 

PLERRX 

RDERRX 

READX 

RELESE 

REQEST 

RLSCTL 



Deletes currently loaded phases, passes control to error editor* 

Enters message "REFERENCED BLOCK NOT IN USE", then terminates compi- 
lation. 

Takes dictionary reference and points at relevant slot in dictionary 
control block area (DSLOTS). 

Takes text reference and points at relevant slot in text block con- 
trol area (TSLOTS) . 

Finds dictionary block which can be written on disk to make room for 
a new block in storage. 

Marks error on SYSLIN data set. 

Loads required phase and returns control to caller. The phase may 
be loaded again. 

Loads required phase and returns control to caller. 

Handles all program checks. 

Prints record on SYSPRINT data set. Pagination (paging action) is 
performed automatically. 

Marks error on SYSIN data set. 

Reads a block from disk. 

Releases all loaded phases. 

Marks phases as 'wanted' or 'not wanted.' 

Releases all loaded phases and pass control to next required or 
named phase. 
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Table AA1. Module AA Routine/Subroutine Directory (cont'd) 

Function 



r t* 

j Routine/Subroutine | 



f- 



SPERRX 
TFREE 

TRYMRD 
TRYiyiRT 
WDREAD 
WDWRIT 
WRITEX 
WRTONL 
WRTRD 

Z ABORT 

ZALTER 

ZCHAIN 

ZDABRF 

ZDRFAB 

ZDICAB 

ZDICRF 

ZEND 

ZINIT 

ZNALRF 

ZNALAB 

ZTXTAB 

ZTXTRF 

ZUERR 

ZULF 

ZUSP 

ZURD 

ZUGC 

ZURC 

ZUPL 

ZOTXTC 



Marks error on SYSPUNCH data set. 

Finds text block which can be written on disk to make space for a 
new block in storage. 

Allocates space for a dictionary block- 
Allocates space for a text block. 
Reads a block from disk into storage. 
Creates space in storage by writing a block on disk. 
Writes a block on disk. 
Writes on last block on disk. 

Writes a block onto disk, reads a second one into its place in stor- 
age. 

Deletes currently loaded phases and passes control to error editor. 
Changes status of referenced text block. 
Finds next text block in chain. 

Converts an absolute address to a dictionary reference- 
Converts a dictionary reference to an absolute address. 
Makes an aligned dictionary entry and returns absolute address. 
Makes an aligned dictionary entry and returns dictionary reference. 
Picks up completion code and returns control to calling program. 
Initializes the compiler. 

Makes unaligned dictionary entry and returns dictionary reference. 
Makes unaligned dictionary entry and returns absolute address. 
Converts text reference to an absolute address. 
Converts absolute address to a text reference. 
Inserts diagnostic message in dictionary. 
Puts record out to SYSLIN data set. 
Puts record on to SYSPUNCH data set. 
Reads a record from SYSIN. 

Supplies storage space for scratch purposes. 
Releases scratch storage. 
Puts record out to SYSPRINT data set. 
Obtains a new text block. 
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Table AB. Module AB Compiler Control Initialization 

r t- 



Statement or Operation Type 



Main Processing 
Routine 



Routine Called 



1 



Issues a BLDL macro-instruction on all phases 
in compiler, and constructs a compacted phase 
dictionary 

Entry to OS/360 ; BLDL 



Prints initial heading and performs scan of 
option list. Default options are taken where 
necessary 



PROPEN I None 



OPTPROC None 



Parameters passed : General register 1 points to 



option list passed at invocation time 
Entry to OS/ 360 ; TIME, PUT LOCATE (QS AM) 



Makes the initial space allocation for text and 
dictionary blocks. Sets up communication 
region 

Entry to OS/360 ; GETMAIN(R) 



OPENR 



None 



-+- 



Opens spill file if text and dictionary blocks 
are IK 

Entry to OS/ 360 : OPEN 



OPENSP 



None 



Obtains the guaranteed 4K of scratch storage 
Entry to OS/360 ; GETMAIN(R) 



GETSCR 



None 



Loads intermediate file writer (Module AC) . 
Sets buffer sizes for SYSUT3 and opens the data 
set 

Entry to OS/360 ; LOAD(EPLOC) , OPEN 



NODUMP 



ZUPL (AA) 



Prints out list of options for this compilation 
Entry to OS/36 ; None 



NDMP 



Enters error messages generated when SYSIN, 
SYSPRINT opened 

Entry to OS/360 ; None 



PJ13 



ZUPL (AA) 



ZUERR (AA) 



Reads first card and stores. Dses as heading 
if required 



RDCD 



ZURD, ZUERR, ZUPL 
(all in AA) 



Return to pre-initializer , in IEMAA 



ABOUT 



None 
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Table AB1. Module AB Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



ABOUT 
GETSCR 
NDMP 
NODUMP 

OPENR 

OPENSP 

OPTPROC 

PJ13 

PROPEN 
RDCD 



Returns control to pre-initializer in Module AA. 

| Obtains scratch storage. 

Prints lists of options for current compilation. 

Loads intermediate file writer module AC. Sets buffer sizes for 
SYSUT3 and opens data set. 

Makes initial space allocation for text and dictionary blocks. Sets 
up communications region. 

Opens spill file. 

Prints initial heading and performs scan of option list. 

Enters diagnostic messages generated when SYSIN and SYSPRINT data 
sets are opened. 

Issues BLDL macro-instruction and constructs phase directory. 

Reads first card. 



Table AC. Module AC Compiler Control Intermediate File Control 



H 



\ 

J Statement or Operation Type 

i _ 


|Main Process 
| Routine 
- 4- — 


sing | 

j Routine Called 

j. _ _ 




r — — — 

| Writes a record onto SYSUT3 

1 

I Parameters passed: PARI — address of output 

| record; PAR2 — length of record 

I Entry to OS/360: PUT LOCATE(QSAM) 

L _ _ _ _ _ ___ _« 


T 

JIEMAC 


t 

|None 

— 4- 




r — 

| Link to file switching routine (Module AG) 

1 

1 Entry to OS/360: LINK 


| ENDED 


|None 





Table AD. Module AD Compiler Control Interphase Dumping 



■T T" 

|Main Processing} 
I Routine 



Statement or Operation Type 



I 

I 

j. + 

| Debugging aids. This routine contains a dump- JIEMAD 
| ing program which is invoked by use of the DUMPJ 
j option | 
l__ x 



Routine Used 



|ZDRFAB» ZTXTAB, 
| (all in AA) , 
(DUMP 
.X 



ZUPL 



Table AD1. Module AD Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 

i- 



Function 



.j 

DUMP | Converts contents of specified area of main storage to hexadecimal, | 

j prints the result. j 

.X J 
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Table AE. Module AE Compiler Control Clean-Up Phase 
r t 



|Main Processing | 

Statement or Operation Type | Routine j Routine Called 
+ + 

Input and intermediate file control. Current j IEMAC |None 
input file is closed and IEMAC is deleted if | (Module AC) | 
present j j 

Entry to OS/360: CLOSE (current input file)* | I 


DELETE | | 

_ _ _ _ _± _ _ _ 4. . 


Opens SYSLIN and SYSPUNCH data sets if required | N0T4 8 | ZUERR (AA) 
Entry to OS/360: OPEN I I 


+ -j. 

Expands the number of blocks in storage to four | NOTDCK | None 
text and four dictionary, if running with the j j 
44k size option j j 

Entry to OS/360: GETMAIN I I 



Table AE1. Module AE Routine/Subroutine Directory 



r t- 

J Routine/Subroutine | 
^ 



Function 



|NOT48 

I 

I NOTDCK 



I Opens SYSLIN and SYSPUNCH data sets as required. 

I 

I Expands number of blocks in storage- 
.x 



Table AF. Module AF Compiler Control Sysgen Options 

r 



Function 



Subroutines 



j. + 

I This module contains no executable instructions. It is | None 

j generated at SYSGEN time and passes the default options j 

I and values to the compiler j 

l i. 



Table AG. Module AG Compiler Control Intermediate File Switching 
r t 



Function 



Subroutines 



j. 

J Switches SYSUT3 from an output file to an input file 

I 

I Entrie s to OS/360 : OPEN and CLOSE 

l 



None 



Table AM. Module AM Compiler control Phase Marking 



Function 



j. + 

I Marks all non-optional phases and | IEMAM 

jail phases influenced by compiler j 

j invocation time options j 

1 x 



JMain Processing! 
j Routine j 



Routines Used 



|REQEST, RLSCTL (both. in AA) 
I 

I 

-J. 
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Chart 01. Conpile-time Processor Logical Phase Flowchart 



****A1 ********* 

* ENTRY * 

* FROM PHASE AA *. 

* * 
*************** 



*****A2* ********* 
♦RESIDENT AS* 
*_*_*_*_*_*_*_*_* 

CONTROLS * 
LOADING OF * 
♦PHASES AV.BCiBG* 
***************** 



.X* 



*****B2 ********** 
*INITIALIZN AV* 
*_*_*_*_*_*_*_*-* 

* INITIALIZES * 
*COMM. REGION 6 * 
♦SCRATCH STORAGE* 
***************** 



*****C2 ********** 
♦INITIAL SCAN BC* 
*-*-*-*-*-*-*-*-* 
.X* INITIAL SCAN * 
*AND TRANSLATION* 

***************** 



*****Q2 ********** 
♦FINAL SCAN BG* 
*-*-*-*-*-*-*-*-* 
♦FINAL SCAN AND ♦ 

♦ REPLACEMENT ♦ 

♦ PHASE ♦ 
***************** 



• *. 

E2 *. 

•* HAS *. 

.* A % BEEN *. 

. ENCOUNTERED .* 

♦IN INCLUDEO* 

♦.TEXT .* 



* NO 



*****F2********** 
♦DIAGNOSTIC BM* 
*-*-*-*-*-*-*-*-* 

* DIAGNOSTIC ♦ 
•MESSAGE CONTROL* 

♦ PHASE ♦ 
***************** 



*****G2 ********** 

* * 

* PRINTS * 

* DIAGNOSTICS * 

* IN DICTIONARY * 

* * 
***************** 



*****H2 ********** 
♦CLEAN-UP BW* 
*_*_*_*_*_*_*_*_* 

* RE-INITIALIZE * 

* COMM. REGION * 

* AND TABLES * 
***************** 
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Chart AS. Phase AS Overall Logic Diagram 



****A2 ********* 
"■ ENTRY * 
► FROM « 
* PHASE AA * 

*************** 



AORP X 

*****B2* ********* 

* PHASE AV * 
*-*-*-*—*-*-*-*-* 

* INITIALIZE *. 

* POINTERS AND * 

* SWITCHES * 
***************** 



LOAOW 

YAG2 X 

*****C 2 ********** 

* PHASE. BC * 
*-*-*-*-*-*-*-*-* 

* . LOAD * 

* PH-ASE BC INTO * 

* STORAGE * 
***************** 



*****D2 ********** 

* * 

* USE PHASE BC * 

* TO PROCESS * 

* 'INPUT* TEXT * 

* * 
***************** 



*****£ 2********** 

* TURN * 

* INCLUDE-SW * 

* OFF • * 

* * 
***************** 



LOAOW X 

*****F2 ********** 

* PHASE BG * 
*-*—*-*-*-*-*-*-* 

* LOAD * 

* PHASE BG INTO * 

* STORAGE * 
***************** 



*****G2 ********** 

* * 

* USE PHASE BG * 

* TO PRODUCE * 

* OUTPUT * 

* * 
***************** 



***** 
*AV * 
* A2* 



****J2 ********* 

* RETURN » 
» TO * 

* PHASE AA * 
*************** 
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Chart AV. Phase AV Overall Logic Diagram 



*****A2 ********** 

* * 

* INITIALIZE * 
♦COMMUNICATIONS *. 

* REGION * 

***************** 



* AND OUTPUT * 

.X* BUFFERS IN * 

•SCRATCH STORAGE* 

***************** 



*****B3********** 

* * 

* MOVE TOKSCN * 



***************** 



ALLOCATE PDS 

IN SCRATCH 

STORAGE 

*************** 



*****Q3********** 

* SET UP DCB"S * 

* AND BUFFER * 

* AREA FOR USER * 

* AND SYSLIB * 

* INCLUDE FILES * 
***************** 



* KEYWORD TABLE 

* IN SCRATCH 



*****P3********** 

* * 

* SET UP TABLES * 



*****G3********* 



* IN FUNCTION * 

* SUBSTR * 

***************** 



*****H3********** 

* SET UP TEXT * 

* BLOCKS FOR 



***************** 



*****J3********** 

* CREATE * 

* DICTIONARY * 
ENTRIES FOR * 



***************** 



*****K3********** 

* * 

* CREATE IVB^S 



_ .. _ * SET UP BASIS 

*FOR VALUES TRUE* X* FOR UNDEFINED 



***************** 
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Chart BC. Phase BC Overall Logic Diagram 



***** 

*BC * 
* A3* 



***************** 



**** 
STB3 

*****D2 ********** 



.* IS 
. INCLUDE-SW 
*. ON 



* C3 *.X 



**** 
FINDPC X 

•****C3********** 

* PUT CHARS * 

* INTO TEXT * 

* BLOCKS UNTIL * 
*HIT NEXT MACRO * 

* STATEMENT * 
***************** 



X 

.*. 

D3 *. 



***************** 



*****£!********** 

* * 

* TURN * 

* PROC-SW ON *X. 

* * 

* * 
***************** 



* PROCESS * 

* PROCEDURE * 

* STATEMENT * 

* * 
***************** 



L1AZ 
YES . 



L1A3 X 

*****F2 ********** 

* PROCESS * 

* LABELS * 

* ATTACHED TO * 

* STATEMENT * 

* * 
***************** 



L1E4P 

*****G2 ********** 

* ENCODE STMNT * 
*-*-*-*-*-*-*-*-* 
♦USES AND TESTS * 

* A PUSH DOWN * 

* STACK * 
***************** 



.* 
. .* 
* YES 



.* IS *. NO 
*. INCLUDE-SW .*... 
*. ON .* 



*****P3********** 

* ADD CODE * 
*TO CALL CLEANUP* 

* TO TEXT * 

* BLOCK * 

* * 
***************** 



***** 
*BG * 
* B3* 



*****E4*********< 

* PUT * 

* END-OF-TEXT * 
.X* CODE INTO * 

* TEXT BLOCK * 

* * 
***************** 



***** 
*BG * 
* B3* 



► WAS IT *. 
THE END FOR . 

► . PROC •* 



**** .* *. 

* * YES .* IS < 

* D2 *X....*. PROC SW ON 



*****H3********** 



***************** 
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Chart BG. Phase BG Overall Logic Diagram 



***** 

*BG * 
* B3* 



* END OF TEXT * 

* * 

* * 
***************** 



,..*. LEV-BIT Q .* 



****F1********* 
► RETURN * 

* TO CALLER * 

* 4 
*************** 



*****Q1** ******** 



***************** 



DAEOB X 

*****H 1 ********** 

* SET LEV-BIT, * 

* TOK-PTR FROM * 

* STACK TOP * 

* THEN POP * 

* STACK * 
***************** 



.x.x. 



PHZSCN X 

*****B3********** 
♦GET NEXT TOKEN * 
*-*-*-*-*-*-*-*-* 

* STARTS FROM * 
♦TOK-PTR TO GET * 

* NEXT TOKEN * 
***************** 



.* *. 

.* 1 

*. WHAT IS IT 



IDENTIFIER 



***************** 



ACTIVATED .* 
.* 

*. .* 



**** 

* * 

* D4 * 

* * 
**** 



.* *. 
PROCEDURE < 
NAME 



DAPENT X 

*****H2 ********** 

* DO * 

* REPLACEMENT * 

* ON ARGS. GET * 

* VALUE FOR * 

* PROCEDURE * 
***************** 



***************** 



.* *. 

i* IS *. 

*. ACTION CALL .* 

*. CLEANUP .* 



DACLN X 

*****P3********** 

* CALL CLEANUP * 
*-*-*_*_*_*_*_*_* 

* THROW AWAY * 

* INCLUDED TEXT * 

* SET TOK-PTR * 
***************** 



INTPRT 

*****H3** ******** 

* INTERPRET * 
*-*-*-*-*-*-*-*-* 

..X* MAY SET * 

* TOK-PTR * 

* * 
***************** 



*****j2* ********* 

* PUSH LEV-BIT, * 

* TOK-PTR AND * 

* VALUE ONTO * 

* STACK * 

* * 
***************** 



*****K2********** 

* * 

* * 
...* LEV-BIT = 1 * 

* * 

* * 
***************** 



*****K 3 ********** 



***************** 



**** 

* * 

* 0<t * 



***************** 



*****£ 4* ********* 

* CALLOUTPUT * 
*-*-*-*-*-*-*-*-* 

* * 

* OUTPUTS TOKEN * 

* * 
***************** 



* PERCENT SIGN 

* 

* 

**************** 



***** 
*BC * 
* A3* 



.*. 

F5 *• 

.* *. 

.* IS ' 

. INCLUDE-SW 

*. ON .< 

*. .* 

*. .* 

* NO 



***** 
*BM * 
* Al* 
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Chart BM. Phase BM Overall Logic Diagram 



***** 

*BM * 
* Al* 



*****£!********** 



***************** 



XAC1 

*****A2 ********** 

* ESTABLISH * 

* LEVEL OF * 
...X* DIAGNOSTIC * 

* PRINT OUT * 

* * 
***************** 



XA1 
YES 



.*. 

B2 *. 

.* ANY *. 

.* ENTRIES «. 

TO BE 

'.PROCESSED.* 

*. .* 

*•• .* 



************* 



***** 
*Btt * 
* Al* 



*****C1 ********** 

* LOAD * 

* MESSAGE * 

* ADDRESS *. 

* BLOCK * 

* * 
***************** 



*****C2 ********** 

* * 

* SCAN * 
** MESSAGE *. 

* CHAINS * 

* * 
***************** 



*****C 3********** 

* MAKE UP * 
LIST OF * 
BLOCKS *. 
NEEDED * 

* * 
***************** 



.X* 



*****C 4* ********* 

* RELEASE * 

* MESSAGE * 
.X* ADDRESS * 

* BLOCK * 

* * 
***************** 

**** 

* * 

* 04 *.x. 

* * • 

**** X 



.* HAVE *. 



***** 
*BW * 
* Al* 



***************** 



*****E2* ******** 



***************** 



THIS 
A NEW 
CHAIN 



XA12A 

******(=^***** *****>( 
PRINT OUT 
* APPROPRIATE * 
...X SEVERITY 

* HEADER * 

************* 



* GET TO * 
<* NEXT ENTRY *. 

* IN CHAIN * 

* * 
***************** 



.*. 

G2 *. 

.* IS *. 

f SKELETON 

IN CURRENT 

t. BLOCK . 

*. .* 

*. ,* 



**** 

* * 
.X* D4 * 

* * 
**** 



*****H2**** ****** 

* MESSAGE * 

* NUMBER * 

* TO PRINT *. 

* BUFFER * 

* * 
***************** 



.* HAS *. 
.* IT GOT *. YES 
•X*. A STATEMENT .*.... 
*. NUMBER .* 



*****H4* ********* 

* STATEMFNT * 

* NUMBER * 
<* TO PRINT * 

* BUFFER * 

* * 
***************** 



*****J1 ********** 

* * 

* ACCESS * 

* MESSAGE *. 

* SKELETON * 

* * 
***************** 



*****J2 ********** 

* * 

* SCAN * 
<* MESSAGE *. 

* SKELETON * 

* * 
***************** 



***** j 3* ********* 

* BUILD * 

* MESSAGE * 
.X* TEXT IN *. 

* PRINT * 

* BUFFER * 
***************** 



CUT OUT 
DIAGNOSTIC 

* MESSAGE * 

************* 



.*. 
KV *. 
.* WAS *. **** 

NO .* THIS *. YES * * 
...*. LAST ENTRY .*....X* 04 * 
*.IN CHAIN .* * * 
*. .* ***» 

*. .* 
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Chart BW. Phase BW Overall Logic Diagram 



***** 

*BW * 
* Al* 



-*****A| ******* *** 

* * 

* RELEASE * 

* ANY LOADED * 

* PHASES * 

* * 
***************** 



*****B1 ********** 

* RELEASE ALL * 
♦ACTIVE T€XT AND* 

* QiCT "BLOCKS * 

* * 
***************** 



*****C1* ********* 

* FREE * 

* ANY •* 

* OUTSTANDING * 
*S.CRATCW STORAGE* 

* * 
***************** 



*•***-* *4)2 *********** 



************* 



*****E1 ********** 



***************** 



*****F1 ********** 

* * 

* REALLOCATE * 

* TEXT AND * 

* DICT BLOCKS * 

* * 
***************** 



*****H1 ********** 

* * 

* SET UP * 
♦COMMUNICATIONS * 

* REGION * 

* * 
***************** 



X 
***** 
*CI * 
* Al* 



**** *G2* ********* 



***************** 
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Table AS. Phase AS Resident Phase for Compile-time Processing 



J Main Processing! 
Statement or Operation Type [ Routine j Subroutines Used 

_ _ _ _ _ 4. _ _ j._ _ _ _ 


T T 

Initializes switches for compile- |ADRP | 
time processor | j 
+ + 

Loads phases for compile-time j ADRP | LOADX (AA) 
processor | j 
+ + 

Determines whether Phase BC should |ADRP | 
be reloaded j j 



Table AS1. phase AS Routine/subroutine Directory 



r r- 

| Routine/Subroutine j 



Function 



j. + ) 

Initializes switches for compile-time processor. 

Outputs onto SYSUT3 the record just completed by OUTPT or OUTPTC. 

Scans the limits of a comment, out putting each character into the 
output buffer. 

Releases a chain of IVBs containing a no longer needed value and 
returns chain to free list. 

Removes an IVB from the free chain for use by the calling routine. 

Updates TOKPTR to point to the next character in a particular input 
stream. 

Accepts an EBCDIC identifier as input and outputs an index. The 
index indicates the beginning of the HASH chain with which the iden- 
tifier is associated. 

Determines whether Phase BC needs to be reloaded on return from 
Phase BG. 

Reads in an input record from the source data set or from included 
text. 

Reads physical records from the included data set; deblocks and 
sends them back one logical record at a time. 

Outputs a single character into one of the three output media: IVBs, 
text blocks, or external records. 

Searches the dictionary for the presence of a named item. 

Scans the limits of a string constant, out putting each character. 

Examines text, character by character recognizing and returning eachj 
logical unit of text (called a token). Tokens include identifiers, 
constants, operators, delimiters, etc. 

Loads processor phases for compile-time processor. 



78 



Table AV Phase AV Macro Processing Initialization 
r- 



| Main Process ing j 
Statement or Operation Type j Routine j Subroutines Used 

_ _ L _ J. _ «_ _ «___ 


T T 

Initializes communication area for | INIT j 
compile-time processing | | 
x X 

Allocates push down stack from | INIT | 
scratch storage j j 
_ ,__x x 

Allocates translation tables | INIT \ 
+ + 

Enters SUBSTR into dictionary | INIT | 
+ x 

Creates dictionary entries and | INIT | 
values for constants pool j j 



Table AVI. Phase AV Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



|. x -I 



INIT 

WWN048 

WWOVLP 

WWOBCD 
WWCHNBEG 



Entry point to the initialization phase. This initializes the com- 
munication region for compile-time processing. 

Allocates the push down stack (to be used by Phases BC and BG) from 
scratch storage. 

Sets up tables to translate external code to EBCDIC; tests the 
BCD, EBCDIC option. 

Enters built-in function SUBSTR into dictionary. 

Creates dictionary entries and values for compile-time constant 
pool. 



i x J 



Table BC. Phase BC Initial Scan and Translation 
r t 



| Main Processing | 
Statement or Operation Type j Routine j Subroutines Used 
x + 

Recognizes statement type |PH1SCN | TOKEN, DELETE 
+ x 

Scans until next % character |PH1SCN |FINDPC 
x 1 

Processes PROCEDURE statement | PH1SCN | TOKEN, DELETE, IDSRCH, 

| JADDSP (FREVAL, OUTPTC) 

+ + 

Processes labels attached to state- | PH1SCN j IDSRCH 

ment j j 

_ x + 

Encodes statement into internal JPH1SCN j PARSE, TOKEN, IDSRCH, ADDSP 
text | | DELETE, CHECK 
+ 1 

Cleans up after INCLUDE in initial |PH1SCN | 
scan I j 
x + 

Begins statement identification |PH1SCN | 
process | j 



l x x J 
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Table BCl. Phase BC Routine/subroutine Directory 



j Routine/Subroutine] Function | 

|. + i| 

ADCONS (Obtains the dictionary reference of a constant, entering it into the| 

dictionary if necessary. 

ADDSP I Adds a processor-created item to the dictionary. 

ADICT I Adds a normal item to the end of the appropriate hash chain and 

returns the dictionary reference. 

ADPROC | Processes PROCEDURE statement. 

CHECK I Checks back for undefined labels and identifiers not declared within | 

the block. 

DELETE I Skips over bad text up to the end of a statement, field or proce- 

dure. 



FINDPC 

IDSRCH 

LIA2 
LIA3 

LIA4P 

PARSE (BE) 

PIF4 

PK1SCN (BE) 
STB3 

TOKEN 



Scans source text, character by character, searching for macro per- 
cent character. 

Obtains the dictionary reference of an identifier, entering it in 
the dictionary if necessary. 

Determines whether scan is inside a procedure block. 

Processes label list. A label list for a PROCEDURE statement is 
handled differently from other labels. 



Produces code for identifier statement, 
to code all expressions. 



The PAPxSE routine is used 



Parses and generates interpretive macro code for compile-time 
expressions. 

Provides special handling for end of included text. 

Main controlling routine for phase. 

Collects labels into label list and identifier statement type on 
first two tokens of statement. 

Returns significant tokens to PH1SCN and outputs diagnostics for 
tokens in error. 



L X J 



Table BG. Phase BG Final Scan and Replacement 

r t t- 



Statement or Operation Type 


[Main Process 
1 Routine 


ing| 
1 


Subroutines Used 




Final scan for 
Recognition of 


replacements 
end of text 


JPH2SCN 

-+ 

JPH2SCN 


j OUTPUT, 
+ 

| OUTPUT, 


TOKSCN, 
TOKSCN, 


SRHDIC 
SRHDIC 




Recognition of 


an identifier 


|PH2SCN 
_j _ 


| OUTPUT, 
x _ 


TOKSCN, 


SRHDIC 




Recognition of 


macro action 


|PH2SCN 
_J._ — — 


| OUTPUT, 
_ i. 


TOKSCN, 


SRHDIC 




Recognition of 


% character 


|PH2SCN 
_X_ — — _ 


| OUTPUT, 
4- — — 


TOKSCN, 


SRHDIC 




Recognition of 


other characters 


| PH2SCN 


| OUTPUT, 


TOKSCN, 


SRHDIC 




Terminates and 
handling 


cleans up INCLUDE 


|PH2SCN 
-4- - 


| OUTPUT, 

1 
__J. 


TOKSCN, 


SRHDIC 




Re-establishes 
level text 


scan at next higher 


1PH2SCN 

i _ 


j OUTPUT, 

Ir 

__ J, ___ 


TOKSCN, 


SRHDIC 




Performs replacement on activated 
identifiers 


|PH2SCN 


| OUTPUT, 
I 


TOKSCN, 


SRHDIC 





H 



H 



L JL X J 



Table BG1. Phase BG Routine/subroutine Directory 



r T" 

| Routine/SubroutineJ 
j. 1- 



Function 






J CONVRT | Handles conversions between the three data types used in the 

| compile- time processor 

D&CLN j Terminates INCLUDE text handling and frees text blocks containing 

| included text. 

DAEOB j Re-establishes scan at next higher level text. 

DAEOBF | Recognizes and processes end of text condition. 

DklDEN | Recognizes and processes identifier in text. 

DA.MAC | Recognizes and processes macro action character. 

DkOTHR [Recognizes character and outputs it. 

DA.PENT j Handles replacement operation for text identifiers. 

DAPRTC j Recognizes % character and recalls Phase BC if appropriate- 

GETDIC J Picks up a two-byte dictionary reference from scrubbed text, per- 

forms error checking, resolves indirect references, and returns both 
I relative and absolute address.. 

INTPRT (Bl) j Interprets the macro code generated by the Phase' I scan. 

OUTPT | Handles the output of tokens. 

PH2SC.N j Scans text blocks. 

POP j Pops the top temporary off the Phase II stack- 

PROINV (BI) j Special entry point to interpreter for invocation of procedures 
j found in source program text. 

PUSH | Pushes next available temporary onto the Phase II stack- 
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Table BM. Phase BM Diagnostic Message Determination and Printing 



Statement or Operation Type 



"T T" 

| Main Processing) 
Routine 



Subroutines Used 



j Determines whether error messages j XA 

I are to be printed | 

|. , + 

| Scans error message text skeletons J XA8 

J and prints them out | 

l -L 



None 



XA50, XA7 0, XA90, XA110, ZUPL 



Table BM1. Phase BM Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 



|XA 




|XA0 




|XA01 




|XA1 




|XA2 




|XA4 




|XA7 




|XA8 




|XA9 (BN) | 


|XA12A | 


JXA30 


(BN) | 


|XA32 


(BN) | 


|XA35 


(BN) | 


|XA40 


(BN) | 


|XA50 


(BN) | 


|XA70 


(BN) | 


|XA90 


(BN) | 


|XA11C 


(BN) | 


|ZUPL 





Table BW. 
r 



Phase BW Cleanup Phase 



•T X- 

jMain Processing! 
Routine 



Statement or Operation Type 



| Resets all tables and communi- | IEMBW 

j cations region cells to the value | 

j required by the compiler proper j 

l x 



Subroutines Used 



None 
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Chart 02. Read-In Logical Phase Diagram Flowchart 



***** 

♦02 * 
* Al* 



X 

.*. 

Al *• 

.* 48 *. 

.* CHARACTER *. 

*. SET 

*. OPTION .* 
*. .* 
*. .* 
* NO 



*****B1 ********** 
♦1ST PASS CI* 
*-*-*-*-*-*-*-*-* 
* LIST IF REQ'D * 
*AND CONVERT TO * 
♦INTERNAL CHARS * 
***************** 



*****£! ********** 
♦MAKE OICT ENTRY* 
♦FOR LABELS AND ♦ 

♦ CHECK FOR ♦ 

♦ LOGICAL END * 

♦ OF PROGRAM * 
***************** 



*****QX ********** 

♦2ND PASS CL* 
*_*_*_*_*_*_*_*_* 

* SCAN TEXT TO * 
♦ANALYZE SYNTAX ♦ 

* OF STATEMENTS ♦ 
***************** 



*****A2********** 

*48-CHAR BX* 

*-*-*-*-*-*-*-*-* 

,X* CONVERT TO * 

* 60 CHARACTER * 

* SET * 
***************** 



El *. 
.* ANY *. 
.* ALLOCATE, *. YES 
♦.DECLARE, CALL.*.... 
♦STATEMENTS.* 
*. .* 
*. .* 
* NO 



*****£ 2* ********* 
♦3RD PASS CO* 
*_*_*_*_*_*_*_*_* 

.X* SCAN TEXT TU * 
♦ANALYZE SYNTAX * 
♦ OF STATEMENTS * 
***************** 



Fl 



.♦. 



*. 



ANY 

.♦STREAM I/O 

. OR FORMAT 

♦STATEMENTS. 

*. .♦ 

*. .* 

* NO 



*****F2* ********* 
*4TH PASS CS* 
*_*_*_*_*_*_*_*_* 

.X* SCAN TEXT TO * 
♦ANALYZE SYNTAX * 
* OF STATEMENTS * 
***************** 



*****Q1 ********** 

*5TH PASS CV* 
*-*-*-*-*-*-*-*-* 
♦MAKE CHAINS OF ♦ 
*CALL, OECLARE, * 
* ALLOC, £ PROC * 
***************** 



***** 
*03 * 
* Al* 
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Chart BX. Phase *BX Overall Logic Diagram 



***** 

*BX * 
* Al* 



t X BA1A X 

*****A1 ********** *****A2 ********** 

* . ,* * * 

* READ AND * * SCAN FIRST * 
<*•' COPY ONE * X* COPY OF * 

* Ki-CORO * * THE TEXT * 

* * * * 
***************** ***************** 

x 

.*. BA70 

Bl *. *****B2********** 

.* *. * READ ONE * 

.* NEAR *. YES * RECORD * 

*. END OF .* X* AHEAD AND *. 

*. RECORD .* * TACK !T UN * 

*.. .* * * 

'*. .* ***************** 
* NO 



.* START *. YES 
. OF COMMENT .*.... 
*.OR STRING.* 



BA25, BA45 

***#*C2*** ******* 

* * 

* SET * 
...X* APPROPRIATE *. 

* SWITCH ON * 



************ 



.* END *. YES * .. SET * 

*• OF COMMENT .*. X* APPROPRIATE *. 

*.OR STRING.* * SWITCH OFF * 

*. .* * * 

* .* ***************** 



.* POSSIBLE *. 
'. KF.YMORO, 
♦PERIOD, OR.* 
♦.COMMA.* 



*, 


**** 


END *. NO 


* * 


OF .*... 


. X* A2 * 


RECORD .* 


* * 


. .* 


**** 


*. .* 




* YES 





*****£4********** 

* * 

* * 

<* -IGNORE *... 

* * 

* * 
***************** 



SA11 

*****F 4* ********* 

* REPLACE * 

* BY * 
...X* OPERATOR *. 

* SYMBOL * 



******* 



>******** 



BA90 X 

*****G1 ********** 

* WRtTE "* 

* ON * 

* SACKING * 

* STORE * 

* * 
***************** 



NEXT 

RECORD 

, ALREADY . 

*. IN .* 



* ADJUST * 
<* TEXT *. 

* IN CORE * 

* * 
***************** 



**** 

* * 

* A2 * 

* * 
**** 



G3 *. G4 *-. 

"*. YES .**F3LLQWED "*. YES 

PERIOD .* X*. 'BV -PERIOD .*.... 

.* *• .* 

*. .* *. . * 

*. .* *. .* 

*■ NO * NO 

'.X . ... '. 

X 

. *. .*. 

H3 *. H4 *. 

**. YES .*°FOLLOWED **. NO 
COMMA .* X*. BY A .*.... 

.* *. PERIOD .* 

*. .* *. . * 

*. .* *. .* 

* NO * YES 



,X* 



.* * 
NO .* IS 
...*. IT LAST 
*. RECORD 



***** 

*CI * 

* Al* 

* * 



*****j 3****'****** 

* * 

* * 

* IGNORE * 

* * 

* * 
***************** 

X 
**** 

* *. 

* A2 * 

* * 
**** 



• *. 
J4 *. 

.♦'followed 

BY A 

*. DIGIT . 

*. . * 

*. .* 

* YES 



REPLACE * 

BY * 

C3LDN * 

* * 
***************** 

'. **** 

. * * 
..X* A? * 

* * 
**** 

*****H 5* ********* 

* * 

* * 
(* IGNORE * 

* * 

* * 
***************** 

', **** 

. * * 
..X* A2 * 

* * 
**** 



* REPLACE * 
<* BY * 

* SEMI-COLON * 

* * 
***************** 



X 




* A2 


***K4********** 




* 


* 


**** 


•**** 


•* 


* * 




IGNORE *.. 


..X* A2 * 






* * 




* 


'**** 




*************** 
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Chart CI. Phase CI Overall Logic Diagram 



***** 
*ci * 

* Al* 



CONTROL IS PASSED DIRECTLY FROM PHASE AA TF 
RSTART X 48-CHARACTER SET OR COMPILE-TIME PROCESSOR 
*****A1**********IS NOT SPECIFIED 



***************** 



* Bl *.X 



**** X 

.*. 

Bl *. 

.* TEST *. 

.FOR LABEL OR*. 

*. PREFIX 

*. OPTIONS .* 
*. .* 



POPLST 

*****B2*********# 

* INSERT LABELS * 

* AND/OR PREFIX * 
...X* OPTIONS IN * 

* DICTIONARY * 



***************** 



* NO 



PROCt ENTRY,*. DO, BEGIN 
CI *. 
.* TEST *. 
.* FOR BLOCK *. YES 
*. MEftDING .*.... 
♦ .STATEMENT.'* 
*. .* 



*****C2 ********** 

* INCREASE * 

* BLOCK AND/OR * 
.X* LEVEL COUNT 

* BY1 * 

* * 
***************** 



*.. 



.*. 

01 *. 

.* *. 



.* TEST *. 


YES 


.* TEST *. 


*. KEYWORD .* 
*. .* 




*. 'END* .* 
*. .* 


*. .* 




*. .* 


* NO 




* NO 
**** 

* * . 

* E2 *.X. 

* * 


X 




**** , 


GN .*. 

El *. 




STAT2 X 

*****E2********** 


.* TEST *. 

.*FOR NULL OR*. 

. ASSIGNMENT . 

♦.STATEMENT.* 

*. .* 


YES 


* * 

* TRANSFER * 
....X* STATEMENT TO * 

* OUTPUT TEXT * 

* * 



END 

*****D3********** 

* DECREASE * 
YFS * BLOCK AND/OK * 

.* X* LEVFL COUNT. *. 

* TRANSFER' END* * 
*TO OUTPUT TEXT * 
***************** 



.* TEST * 
.* IF LEVFL 
. X*. COUNT IS 
*. ZERO 



***** 
*CL * 

* B2* 



***************** 



* SKIP * 
.* TO NEXT * 

* SEMI-COLON * 

* * 
***************** 
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Chart CL. Phase CL Overall Logic Diagram 



***** 

*CL * 
* B2* 



DtbllN, I 1 UU, 

00, GOTO, WAIT, 
DELAY, EXIT, STOP, 
ENDO, fcNDITDO, 
RETURN, FREE, CALLi 
DISPLAY, FORMAT, 
END 



GET, PUT, 
READ, WRITEt 
REWRITE, DELETE, 
OPEN, CLOSE 



ALLOCATE, DECLARE, 
ON, SIGNAL, 
REVERT, ASSIGN, 
GOOB, IF, PR0C1 



.* *. 
.* TEST *. YES 
.FOR SPECIFIC .*.... 
♦.KEYWORDS .* 



*****B 3 ********** 

* 

* 

• X* 



PROCESS 

THE 

STATEMENT 



.* TEST 

*. FOR OTHER 
•STATEMENTS. 



***************** 

* **** 

* * 
..X* G2 * 

* * 
**** 



C2 *. 






*****C3********** 


.* TEST * 






♦ PUT OUT AN ♦ 


* FOR 


* 


YES 


* ERROR MESSAGE * 


DEFERRED 








♦.FEATURES 


* 




* THE * 


♦ . .* 






* STATEMENT * 


♦ . .♦ 






***************** 


* NO' 






* **** 
. * * 
..X* G2 ♦ 
* * 


5 
. *. 

D2 *. 






**** 






*****Q3********** 


.* TEST * 






* * 


* FOR 


* 


YES 


* MARK THE ♦ 


I/O 








♦.STATEMENT 


* 




* AS 'WANTED' ♦ 



***************** 



*****£ 3********** 

♦ TRANSFER * 

• STATEMENT TO ♦ 
OUTPUT TEXT *. 

* WITHOUT ♦ 

♦ CHECKING * 
***************** 



.X^ 



.♦. 
F2 *. 
* TEST ♦. 
FOR 
END OF 
PROGRAM . 
*. .♦ 
♦. .♦ 
♦ NO 



**** 
BADST X 

*****G2 ********** 



X 
***** 
♦CO ♦ 
* Bl* 



♦ SKIP TEXT TO * 

♦ SEMI-COLON OR ♦ X*. 

♦KEYWORD 'ELSE' ♦ 

♦ ♦ 
***************** 



NOTE". 

GOES TO PHASE CS IF 
PROGRAM DOES NOT 
CONTAIN A DECLARE, 
CALL, OR ALLOCATE 
STATEMENT 



53 *. *****G4********** 

*. * * 

TEST ♦. YES ♦ TRANSFER ♦ 

FOR .♦ X*ELSE STATEMENT ♦ 

'ELSE' .♦ +TO OUTPUT TEXT ♦ 

. .* * * 

*. .* ***************** 
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Chart CO. Phase CO Overall Logic Diagram 



***** 
*co * 

* Bl* 



SCAN2 

.*" 

..X*. 

*. 

**** 

► * 

► Bl * 

* * 

**** 



Bl *. 
K *. 
TEST *. Y 
FOR .*. 
DECLARE .* 



X 

.*. 

CI *. 



*****B3********** 



***************** 



*. 

TEST « 

FOR 

.ALLOCATE .* 

*. •* 

*. .* 

* NO 



BCOL X 

*****C2 ********** 

* CHECK SYNTAX * **** 

* OF * * * 
...X* DECLARATION *....X* Bl * 

* OR * X * * 

* ALLOCATION * . **** 
***************** 



.*• 

1 *. 

*. 
TEST *. YES 


CALLOP 

*****D2 ********** 

* * 

* PROCESS * 


CALL .* 

.* 


* STATEMENT * 

* * 



.* TEST *. 

*. FOR END OF .< 

*. PROGRAM .* 

*, ,* 



***************** 



SCANT 

*****E 2 ********** 

* TRANSFER * 

* STATEMENT * 
,..X* TO OUTPUT *. 

* TEXT WITHOUT * 

* PROCESSING * 
***************** 



***** 
*CS * 
* B2* 
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Chart CS„ Phase CS Overall Logic Diagram 



***** INPUT FROM PHASE CL IF PROGRAM 

*CS * DOES NOT CONTAIN DECLARE, CALL 

* B2* OR ALLOCATE STATEMENTS 



*****B 3 ********** 



READ, WRITE, .* *. YES * PROCESS THE * 

G€Ti PUT, *. TEST .* X* STATEMENT *. 

OPEN, CLOSE, *. .* * * 

REWRITE, DELETE *. .* * * 

*. .* ***************** 



UNLOCK 

*****C 3********** 

* DEFERRED .• * 

* FEATURE* PUT, * 

. ..X*OUT A MESSAGE. *. 

* DELETE THE « * 

* STATEMENT > * 
***************** 



***************** 



E2 *. 

* TEST *. * * 

FOR *. NO * TRANSFER * 

END OF .* X* STATEMENT TO *. 

PROGRAM .* * OUTPUT TEXT * 

*. .* * * 

*. .* ***************** 



***** 
*CV * 
* B2* 
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Chart CV. Phase CV Overall Logic Diagram 



***** 

*cv * 

* B2* 



.* TEST 
FOR 
*.LABEL(S) 



***************** 



ENTRY, PROC, 
BEGIN, CALL, 
DECLARE 



NO .* TEST 
...*. FOR PREFIX 
*. OPTIONS . 



*****C3********** 

* * 

* PROCESS * 
<* PREFIX * 

* OPTIONS * 

* * 
***************** 



.* TEST *. 
.* FOR CHECK *. YES 
► . AND NOCHECK .*.... 
*. LISTS .* 



.X*. TEST 



*. 



TEST 
• FOR 
'END' 



H2 *. 
.* *. 

TEST < 
FOR END OF 
PROGRAM .< 
• * 
*. .* 



*****q 3*** ******* 

* FORM THE * 

* NECESSARY * 
(* PSEUDO *. 

* STATEMENT * 

* * 
***************** 



.* TEST *. 
.* FOR AN *. YES * 
*.ON-STATEMENT .* X* 



CHEKON 

*****F3********** 
* SURROUND * 
THE ON-UNIT * 



CHAIN 

*****f:4********** 

* SLOT THESE * 

* STATEMENTS * 
..X* INTO THE * 

* RELEVANT * 

* CHAINS * 
***************** 



***************** 



***************** 



***** 
*EG * 
* Al* 



* TRANSFER '- * 

* STATEMENT *. 

* WITHOUT * 

* CHECKING * 
***************** 
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Table BX. Phase BX a8-Character Set Preprocessor 



| |Main Processing! 

| Statement or Operation Type j Routine j Subroutines Used 

,. + + 

j Translates keyword table to inter- |BA00 | None 

j nal code and initializes j j 

,. + + 

j Reads a record |BAl | ZURD (AA) 

L ± _ _ J._ __ _ _ _ ___ 


r T — T — ~~~ 

| Scans text |BA1A |None 

L _ _ , _____________1,______ J. _ _ _ __ 


| Handles operators and keywords j BA5 | None 

L _ _ _ _ _ _____ 4. __ _ _ _ _ 


r — ________ ^. __ .j. __ — _ _ _ _ _ 

J Replaces operator keywords |BA11 jNone 

L _ _ _ J. _ x _ _ _ _ 


| Replaces comma-dot by semi-colon |BA20 |None 

j where applicable | j 

|. + + 

| Deals with quote marks |BA25 |None 

^ + + 

j Maintains parenthesis level count JBA30 |None 

^ + + 

j Replaces period- period by colon |BA40 | None 

|. + + 

| Processes a slash |BA50 {None 

^ + + 

j Reads one record ahead in case of |BA70 | None 

j need j | 

f + + 

| Restores the situation when a read |BA80 |None 

j ahead has taken place j j 

j. + + 

|Puts out converted text and origi- JBA90 j ZOBW 
| nal text onto backing store | | 
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Table CA. 
r 



Module CA Read-In Common Block 1 



Function 



Subroutines 



4 .] 

JACONST, DECINT, EXP, EXPAND, EXPLST, IDENT, j 

JMVCHAR, OPTOR, SCONST, SINGLE, SQUID | 

-i. J 



j Provides subroutines common to all five 
j passes of the read-in phase 



Table CA1. Module CA Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



h 



■+■ 



ACONST 

DECINT 

EXP 

EXPAND 

EXPLST 

IDENT 

MVCHAR 

OPTOR 

SCONST 
SINGLE 
SQUID 



| Checks for a valid arithmetic constant. 
Checks decimal integer- 
Diagnoses expressions. 
Expands iterations of string constants and picture characters. 

Checks for a list of expressions separated by commas but enclosed in 
parentheses. 

Checks for a valid identifier. 

Moves text from one address to another. 

Checks for an operator and replaces the two-byte operators by one- 
byte codes. 

Checks for a valid string constant. 

Diagnoses a single expression in parentheses. 

Checks for a valid subscripted and qualified identifier. 
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Table CC. Module CC Read- In Common Block 2 
r 



Function 



Subroutines 



|. 

| Provides subroutines common to all five 
| passes of the read-in phase 

l 



jCHAR, CHECK, KEYWD, MESAGE, NONEX, 

fNULINS, OPTESTV PICT, PREC, SOFLOW 

.± 



Table CC1. Module CC Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



CHAR 

CHECK 

KEYWD 

MESAGE 
NONEX 
[NULIKS 
OPTEST 
PICT 
PREC 

SOFLOW 



Diagnoses the CHARACTER and BIT data attributes- 
Tests the top entry in the stack. 

Identifies keywords and hands back the replacement character, to the 
caller. 

Provides a diagnostic message. 
Checks stack for non- executable statements. 
Inserts null statement in output text. 
Tests the output string and moves text to the output. 
Diagnoses a picture. It uses a TRT table set up for the purpose- 
Diagnoses the precision, and the attributes and format items which 
use it. 

Bumps stack pointer and checks for stack overflow. 



Table CE. Modules CE, CK, CN, and CR Read- In Keyword Block 



Function 



j. 

j Provides tables of keywords in internal 

| code, together with replacement code. 

JNo functional code exists in these modules. 

f Refer to Appendix B for details of keyword 

| tables. 

i 
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Table CI. Phase CI Read-In First Pass 



Statement or Operation Type 



"T T* 

| Main processing | 
j Routine | 



Subroutines Used 



t + + ^ 



controls main scan, identifies 
statements, and analyzes some in 
detail 



RSTART \ ASSIGN, BADSTt,, BEGIN, DO f 

| ELSE, BUMP, END, EOP, ERROR, IF, 
|0N, POPLST, PROC, READ, SIGRVT, 
JSTAT2, STRING, plus those 
| subroutines contained in modules CA| 
| and CC 
l x i ^ J 



Table CI1. Phase CI Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



— i 



Function 



ASSIGN (CG) 
.BADST1. 

BEGIN (CG) 

BUMP 

DO (CG) 
ELSE (CG) 
END (CG) 

ENTRY 
EOP 

ERROR (CG) 

IF (CG? 
[ON (CG) 
\ POPLST 

PROC 

READ 

RSTART 

SIGRVT (CG) 
STAT2 (CG) 
STID 
STRING (CG) 



Diagnoses an assignment statement. 

Recovers from failure to recognize a statement type; skips to next 
semi- colon. 

Checks the BEGIN statement and makes an entry in the first pass 
stack. 

Advances the input Data Pointer (DP>, skips blanks, if any, forcing 
source text to he read into storage as necessary. 

| Checks the DO statements and makes an entry in the first pass stack. 

Unstacks an IF compound statement. 

Processes three different types of END statements; PROCEDURE- BEG IN; 
DO; iterative DO. 

Processes ENTRY statement. 

Processes end- of- program, marker, and returns to compiler control in- 
order to load next pass. 

Handles false starts on possible statements. 
Scans the IF statement and makes entry in first pass stack. 
Diagnoses the ON statement and makes entry in first pass stack- 
Removes prefix options from the text and places them in the dic- 
tionary. 

Scans the PROCEDURE and ENTRY statement and makes an entry in the 
first pass stack. 

Reads source text into storage, translating it into internal code, 
except for character strings; removes comments; prints source list- 
ing and prefix options. 

Controls the first pass scan. Enters statement labels into the 
dictionary. 

Scans SIGNAL and REVERT statements. 

Handles all other statements. 

Statement identifier routine. 

Scans character strings. 
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Table CL. 
r 



Phase CL Read-In Second Pass 



■T T- 

|Main Processing | 
Routine 



Statement or Operation Type 



Subroutines Used 



| Scans for statements handled in | 
| this pass, analyzing them in j 
J detail. Skips over other statements! 



SCNA 



JBUMP, DELAY, DSPLAY, DO, FREE, j 
| GOTO, ITDO, LABEL, PROC, RETURN, | 
JTRTSC, plus those subroutines con- j 
jtained in modules CA and CC j 
.x J 



Table CL1. Phase CL Routine/Subroutine Directory 



r t- 

j Routine/Subroutine | 



Function 



BUMP 

DELAY 
DSPLAY 
DO 
EOP 

FREE 

GOTO 

ITDO 

LABEL 

OPTION 

PROC (CM) 

RETURN 

SCNA 

TRTSC 



Increments the input Data Pointer (DP), skipping over blanks, 
obtaining a new text block if necessary. 

Processes DELAY statements. 

Processes DISPLAY statements. 

Processes DO statements. 

Processes end-of-program marker, and releases control to phase CO or 
CS, or CV (CO and CS are optional phases). 

Processes FREE statements. 

Processes GOTO statements. 

Processes iterative DO statements. 

Diagnoses LABEL attributes. 

Handles OPTIONS attribute on PROCEDURE or ENTRY statements. 

Analyzes PROCEDURE attributes and options, and completes the diag- 
nosis of PROCEDURE and ENTRY statements. 

Processes RETURN statements. 

Main controlling routine of this pass. 

Skips over all other statements. 
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Table CO. Phase CO Read-In Third Pass 



Statement or Operation Type 



Main Processing! 
Routine I 



Subroutines Used 



H 



| Scans for DECLARE, CALL, and 
J ALLOCATE statements. Analyzes 
| syntax of attributes by calling 
| appropriate subroutines 



SCAN2 



jATTLST, BUMP. CALLOP, DECL # DEFIND, 
| DIMS, ENTRY, ENVMNT, EOP, 
JGENRIC, LABEL, LIKE, USES, IVLIST, 
| and those subroutines contained in 
J modules CA and CC 
.x 



Table C01. Phase CO Routine/Subroutine Directory 



I Routine/Subroutine | 
|. 



Function 



Processes an attribute list. (Recursive) 
Processes DECLARE or ALLOCATE statement. 

Advances Data Pointer (DP) , obtaining new input block if necessary- 
Checks CALL statements and options. 
Processes the DECLARE and ALLOCATE statements. 
Checks the DEFINED attribute. 
Examines the dimension specifications. 
Checks the ENTRY attribute. 

Removes environment information from the text and inserts it into 
the dictionary. 

Processes the end- of -program marker, and releases control. 

Processes the GENERIC attribute. 

Processes the INITIAL attribute 

Analyzes LABEL attribute. 

Processes the LIKE attribute. 

Scans for DECLARE, CALL, or ALLOCATE statements, moves others to the 
output string unaltered. 



| ATTLST 




|BDCL 




|BUMP 




| CALLOP 


(CP) | 


jDECL 




| DEFIND 




|DIMS 




| ENTRY 




| ENVMNT 


(CP) | 


|EOP 




| GENRIC 




| IVLIST 


(CP) | 


| LABEL (CP) | 


|LIKE 




| SCAN2 




| SCANT 




|USES 





Moves text to semicolon without alteration. 
Processes the USES and SETS attributes. 
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Table CS. Phase CS Read-In Fourth Pass 



Statement or Operation Type 



JMain Processing! 
J Routine j 
+ 1. 



Subroutines Used 



., 

|EOP, FORMAT, GET, LIST, OPEN, j 

|READ, TRTSC, plus those subroutines] 

j contained in modules CA and CC j 

.J. j 



j Controls main scan and identifies | SCNA 
j j I/O statements for further analysis | 



Table CS1. Phase CS routine/Subroutine Directory 



r T" 

j Routine/Subroutine | 
f + . 



Function 



EOf> 

FORMAT (CT) 

GET (CT) 

LIST 

OPEN (CT) 

READ 

SCNA 
TRTSC 

UNLOCK 



Processes end- of- program marker and releases control. 

Processes the FORMAT statement and format lists. 

Processes GET and PUT statements. 

Processes data lists. 

Diagnoses OPEN and CLOSE statements. 

Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE* and 
DELETE. This routine also checks for permissible combinations of 
these statements. 

Main scan of this pass. 

Skips over all statements other than I/O, moving them to the output 
text. 

Deferred feature. Puts out a message and deletes the statement,. 



96 



Table CV. 
r 



Phase CV Read-In Fifth Pass 



T T" 

|Main Processing | 
I Routine I 



Statement or Operation Type 



Subroutines Used 



+ ., 

jCALLIN, CHAIN, DECL3, D03, END3, j 
|ENTRY3, EOP, POA1, PROC3, TRTSC, | 
| and those subroutines contained in | 
| modules CA and CC. | 

-X. J 



j Identifies statements for which it JSCNA 
must build chains I 



Table CV1. Phase CV Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



h 



CALLIN (CW) 

CHAIN 

CHECKON 

DECL3 

D03 

END3 

ENTRY3 

EOP: (CW) 

ILABSN (CW) 

POA1 

P0C1 

PR0C3 

SCNA 

SCNZ 

TRTSC 



Makes up the CALL chain. 

Forms chains. 

Checks the fifth pass stack for ON entry, in order to insert 
PROC-END statements round the ON unit. 

Chains the DECLARE statement to the appropriate PROC or BEGIN state- 
ment. 

Makes a stack entry for DO block. 

Checks the fifth pass stack. 

Makes an entry in the ENTRY chain. 

Processes end-of -program marker, and releases control. 

Creates pseudo- assignment statements for initial labels. 

Analyzes prefix options in greater detail. 

Processes check lists. 

Makes an entry in the PROCEDURE-BEGIN chain. 

Main controlling routine of the pass. 

Extracts statement number for label entry. 

Skips over statements not required for analysis in this phase. 
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Chart 03. Dictionary Logical Phase Flowchart 



***** Ax ********** 
♦INITIALIZN EG* 
*-*-*-*-*-*-*-*-* 
♦SET UP HASH TAB* 
♦ £ INSERT TABLE * 
♦ENTRIES IN CHNS* 
***♦♦♦♦*****♦**♦♦ 



DICTIONARY 
• REFERENCES * 
*♦♦♦*******♦♦♦*** 



*****B1********** 
♦CREATE DICT ENT* 
*FOR PROCf BEGIN* 



* TYPE 1 CHAINS 
***************** 



♦CHECK VALIDITY * 

* OF DICTIONARY * 

* -REFERENCES * 
***************** 



*****£!********** 
♦DECL PASS 1 EI* 
*-*-*-*-*-*-*-*-* 
♦SCAN DECL CHAIN* 
•PREPARE ATTRIBS* 
*FOR NEXT PHASE * 
***♦******♦♦♦**** 



".ATTRI8UTE IN 



♦THE DICTIONARY * 
***************** 



*DECL PASS 2 EK* 
*-♦-♦-♦-*-*-*-♦-♦ 
♦SCAN DECL CHAINS 
♦MAKE ENTRY FOR ♦ 



♦CONSTRUCT DICT ♦ 

♦ ENTRIES FOR ♦ 

♦ ON-CONDITIONS ♦ 
***************** 



*****£!********** 
♦COMMUNICATNS EP* 
*-*-*-*-*-♦-♦-♦-♦ 
♦SET LATE PHASES^ 
♦WANTED OR UNWTD^ 
♦ ACC TO FLAGS ♦ 
***************** 



*****E3********** 
* REPLACE BY AN ♦ 
♦ERROR STATEMENTS 



♦DICT REFERENCE 
***************** 



*****Fl********** 
♦SCAN ENT TYPE 1* 
♦CHN MAKING ENT * 
♦TYPE 2 E 3 DICT* 
♦ ENTS FOR DATA ♦ 
♦TYP RET BY PROC* 
***************** 



**F^********** 



VALIDITY * 



***♦♦**♦♦♦♦♦♦♦♦** 



♦DIC ENTRIES FOR* 
♦EXTERNAL ENTRY * 



*************** 



♦CHAIN VARIABLES^ 
♦OF EACH STORAGES 
♦CLASS S CONSTS ♦ 
*************♦♦♦♦ 



.CONTAIN LIKE . 
♦. ATTRIBUTE. ♦ 



•X^SCAN LIKE CHAINS 
♦ EXPAND ALL ♦ 
•LIKENED STRUCTS* 
******♦*♦*♦♦♦♦♦*♦ 



*****H3 ********** 

* UNCOMMON ♦ 

♦ PICTURE AND 



*****j 2 ********** 



.X*SCAN ALLOC. COPY* 



***************** 



*♦♦ ♦♦J 3 ♦****♦♦**♦ 
♦MERGE 2ND FILE ♦ 
♦STATEMENTS AFTR^ 
♦APPROPRIATE PRC* 
♦ BEGIN OR * 
♦ALLOCATE STMNTS* 
***************** 



*****K 1 ********** 



NAMES £ FILES ♦ 
***************** 



*****K2********** 

* MAKE OICT * 

♦ ENTRIES FOR ♦ 
.X*CONSTANTS USED *. 

♦IN THE PROGRAM ♦ 



******K<t*********** 



AND/OR XREF 



♦♦♦****** 



98 



Chart EG. Phase EG Overall Logic Diagram 



***** 

*EG * 
* Al* 



*****A1 ********** 



INITIALIZE 
HASH TABLE 



***************** 



CAA1 X 

*****B1 ********** 

* INSERT LABELS * 
*IN HASH CHAINS,* 

* CHECKING FOR * 

* MULTIPLE * 

* DEFINITION * 
***************** 



*****C1********** 



* SCAN * 








* PROC-BEGIN * 








* CHAIN * 








* * 






**** 


***************** 






* * 

* 02 * 


**** " 






* * 


* * 






**** 


* Dl *.X. 






. 


* * 








***# X 






. 


.*. 


CAPROC 


X 


Dl *. 


*****D2***** 


. * ♦• 


* 






.* *• YES 


* 




GENERATE 






ENTRY TYPE 



*. 



El *. 

BEGIN 
*. .*" 



1 
* 
* 
*************** 



>E2********** 



CFORP 

*****D3 ********** 

* SCAN FORMAL * 
♦PARAMETER LIST * 

...X* AND CREATE *. 

* F.P. TYPE 1 * 

* ENTRIES * 
***************** 



>****E 3 ********** 



CTYPBL 

*****D4* ********* 

♦SCAN ATTRIBUTE * 

* LIST. CREATE * 
...X* ENTRY TYPE 2 *. 

* FOR THE * 
♦STATEMENT LABEL* 
***************** 



***************** 



***** 
*E1 ♦ 
* A2* 



GOES TO PHASE EP 
IF THERE ARE NO 
DECLARE STATEMENTS 



***************** 



*****p 3 ********** 



*****D5* ********* 

* CHAIN * 

* VARIOUS * 
(* ENTRY DICT * 

* ENTRIES ♦ 

* * 
***************** 



*****E5* ********* 

* UPDATE * 

* MAPSTACK IN * 

* SCRATCH * 

* STORAGE * 

* * 
***************** 



***************** 



***************** 



**** .* 

► * YES .* 

► D2 *X....*. ENTRY 
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Chart EI. Phase EI Overall Logic Diacrram 



***** 

*EI * 
♦ A2* 



***************** 



CHARACTER, BIT, PICTURE, 
USES, SETS, DEFINED, 
ISUB, POSITION. LIKE, 
DIMENSIONS, INITIAL, 
INITIAL CALL, LABEL, 
PRECISION 



CCGSE X 

*****B2 ********** 

* PICK UP * 

* NEXT ENTRY * 

* IN DECLARE * 

* CHAIN * 

* * 


CCGS2 X 

*****B 3 ********** 

* * 

* CONTINUE * 

* SCAN OF * 

* DECLARATION * 

* * 


***************** 


***************** 


X 

.*. 

C2 *. 

.* TEST *. 

.* FOR *. YES 


CCFLP.CCFRP 

*****£ 3 ********** 

* REPLACE * 

* PARENTHESES * 


♦ATTRIBUTES.* 

*• .* 

*. .* 


* CODES FOR * 

* LATER PHASES * 
***************** 


* NO 





CCGSAT .*. 
D2 



*****D3********** 

* PARTIALLY * 

* PROCESS THE * 
.X* ATTRIBUTE TO *. 

* ASSIST LATER * 

* PHASES * 
***************** 



.*. GENTRY 

E2 *. *****E3********** 

.* TEST *. * KEEP A COUNT * 

.* FOR *. YES * OF THE * 

. ENTRY OR .* ...X*PARENTHESES TO *. 

*. GENERIC .* *ASSIST FACTORED* 

*. .* *ATTRIBUTE SCAN * 

*. .* ***************** 
* NO 



F2 *. 
.* TEST *. **** 

.* FOR *. NO * « 
'. END OF .*....X* B3 * 

*. DECLARE .* * * 
*. .* **** 

*. .* 



G2 *. 

•* TEST *. 
* FOR ENO 

OF DECLARE 
*. CHAIN . 



X 
***** 
*EK * 

* Al* 
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Chart EL. Phase FL Overall Logic Diacrram 



***** 

*EL * 
* Al* 



* INITIALIZE * 

* PASS CONTROL * 

* TO IEMEM * 

* * 
***************** 



* SCAN CHAIN * 
.X* OF PROCEDURE * 

* STATEMENTS * 

* * 
***************** 



**** 
» * 

* Bl « 

* 4 
**** 



SCAN4 

*****C 2* ********* 

* * 

* SCAN CHAIN * 
...X* OF DECLARE *. 

* STATEMENTS * 



***************** 



* 


* 






**** 




END 


* 


YES 


* 


UF 


CHAIN 




*. • . 


X* Bl 



***** 
*EP * 
* Al* 



YES 
.*. 

02 *. 

.* *. 
* END OF * 

DECLARATION 
► . LIST .* 



CDCLSC 

*****Q3********** 

* PICK UP NEXT * 

* IDENTIFIER * 
...X*IN DECLARATION * 

* LIST * 



***************** 



* DECIDE * 

* NATURE OF * 

* IDENTIFIER * 

* * 
***************** 



ATLSCN 

*****P3********** 

* APPLY * 

* ATTRIBUTES IN * 

* ATTRIBUTE * 

* LIST * 

* * 
***************** 



* APPLY * 

* FACTORED * 

* ATTRIBUTES * 

* * 
***************** 



IMPATT X 

*****H3 ********** 

* APPLY * 

* IMPLICIT * 

* AND DEFAULT * 

* ATTRIBUTES * 

* * 
***************** 



CDICEN 

*****J3********** 

* MAKE * 

* DICTIONARY * 
. ...* ENTRY FOR * 

* IDENTIFIER * 

* * 
***************** 
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Chart EP. Phase EP Overall Logic Diagram 



***** 

*EP * 
* Al* 



*****A1* ********* 

* CONDITIONALLY * 

* MARK PHASES * 

* WANTED AND * 

* NOT WANTED * 

* * 
***************** 



EPL20 X 

*****B1 ********** 

* GO TO * 

* FIRST ENTRY * 

* IN *. 

* ENTRY TYPE 1 * 

* CHAIN * 
***************** 



* GO TO DICT 
(* ENTRY FOR 

* FIRST LABEL 
* 
*************** 



EPL75 X 

*****B3 ********** 

* CONSTRUCT * 

* ENTRIES * 
...X* TYPE 2 AND *. 

* 3 IF NOT * 

* THERE * 
***************** 



* GO TO DICT * 
(* EMTRY FOR * 

* NEXT LABFL * 

* * 
***************** 



EPL40 X 

*****£ 2 ********** 

* GO TO NEXT * 

* ENTRY IN * 

* PROCEDURE *. 

* ENTRY CHAIN * 

* * 
***************** 



PROCEDURE 



**** 

* * 
.X* B2 * 

* * 
**** 



EPL600 

*****D1 ********** 

* GET TEXT * 

* REFERENCE * 

* OF START OF *X. 

* CALL CHAIN * 

* * 
***************** 



D3 *. *****D4-*********» 

.* *. * * 

YES .* END OF *. NO * GO TO NEXT * 

,...*. ENTRY CHAIN .* X* ITEM IN CHAIN *. 



***************** 



.x*. procedure 



.* END 
*. OF CALL 
*. CHAIN . 
*. .* 



*****E2 ********** 

* SCAN THE * 
DICTIONARY * 

FOR THE *. 
IDENTIFIER * 

* * 
***************** 



,X* 



^IDENTIFIER *. 

BUILT-IN 
".FUNCTION .* 



..X* B2 * 
* * 
**** 
CDICEN 

*****E5* ********* 
♦MAKE DICTIONARY* 

* ENTRY USING * 
...X* DEFAULT RULES * 

* FOR DATA TYPE * 

* * 
***************** 



***** CONTROL PASSED TO 
*EW * PHASE EW (OPTIONAL) OR 
* Al* PHASE EY (OPTIONAL) OR 
* * PHASE FA (NON-OPTIONAL) 



.* IS 
CALL 
*. VALID 



*****F4********** 

* GENERATE * 

* ERROR * 
<* MESSAGE * 

* INSERT DUMMY * 

* REFERENCE * 
***************** 



EPL360 X 

*****F5* ********* 

* REPLACE * 

* BCD BY * 

* DICTIONARY * 

* REFERENCE * 

* * 
***************** 



EPL360 X 

*****G 3 ********** 

* REPLACE * 

* BCD BY * 

* DICTIONARY *. 

* REFERENCE * 

* * 
***************** 



EPL29C X 

*****54* ********* 

* GET TEXT * 

* REFERENCE * 
...X* OF NFXT *> 

* ITEM IN * 

* CALL CHAIN * 
***************** 
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Chart EW. Phase EW Overall Logic Diagram 



***** 

*EW * 
* Al* 



EMBEGN X 

*****A1********** 

* INITIALIZE. * 

* GET SCRATCH * 

* STORAGE AND * 

* FIRST ITEM IN * 

* LIKE CHAIN * 
***************** 

**** 



**** 
EWSTRT X 

*****B i ********** 

* * 

* SAVE ADDRESS * 

* CODE BYTES * 

* LEVEL ETC * 

* * 
***************** 



♦SCAN DICTIONARY* 

* FOR STRUCTURE * 

* WITH SAME BCD * 

* * 
***************** 



X 

.*. 

Dl *. 

.* IS *. 

THIS A 

VALID 

.STRUCTURE. 

*. .* 

*. .* 

* YES 



*****02 ********** 



....X. 

X 
EWNOLK .*. 

El *. 
.* IS *. 
.* ORIGINAL ♦. NO 
*. STRUCTURE .*... 
*. DIMENS- .* 
*.IONED.* 
*. .* 
* YES 



EWELTS .*. 

Fl *. 
.♦IS THIS*. 
.* ELEMENT * 
*. DIMENSIONED 



***************** 



EWOROM .*. 

E2 *. 
.*IS THIS*. 
.* ELEMENT * 
...X*. DIMENSIONED 



#****D 3 ********** 

* PICK UP * 

* STRUCTURE * 
.X* WITH THE LIKE *. 

* ATTRIBUTE * 

* * 
***************** 



.* 



*COPY STRUCTURE * 

* ELEMENT INTO * 

* SCRATCH * 

* * 
***************** 



* EXPANDS ENTRY * 

* INTO SCRATCH * 
♦WITH NEW DIMENS* 

* * 
***************** 



*COPY STRUCTURE * 
.X* ELEMENT INTO * 

* SCRATCH * 

* * 
***************** 



*****F 3 ********** 

* CALCULATE NEW * 

* NUMBER OF * 

* DIMENSIONS. * 
'* PICK UP * 
♦DIMENSION TABLE* 
***************** 



.♦. 

G3 *. 

.* ARE ♦. 

NO .* THERE ANY *. YES 

...*. VARIABLE .*.... 

*. DIMENS- .* 

*.IONS .* 

*. .* 



.* THIS A 
.X*. MAJOR 

♦.STRUCTURE. 
*. .* 



*****£ 4.* ********* 

* SET UP * 
♦ERROR MESSAGE. ♦ 

♦ CHANGE ENTRY 

* TO A C6 * 

♦ ENTRY ♦ 
***************** 



*X. 



EWELDM 

*****f)5 ********** 

* COPY ENTRY UP * 

♦ TO THIS POINT ♦ 
,..X^ INTO SCRATCH. ♦ 

* ADD DEFAULT ♦ 

♦ VALUES * 
***************** 



EWHSCN X 

*****E5********** 

♦ PUT COPY INTO * 

♦ DICTIONARY. * 
....♦ UPDATE ♦ 

♦ STRUCTURE AND * 

♦ HASH CHAIN * 
***************** 



.X* 



EWINCH X 

*****H1**** ****** 

* MAKE DICT * 

* ENTRY, UPDATE * 

* FORWARD AND ♦X. 

* HASH CHAINS ♦ 

* * 
***************** 



EWELDM X 

****#H2 ********** 

* COPY ENTRY. * 

* INCLUDE * 
....♦ DIMENSIONS IF * 

* PRESENT * 



***************** 



**** 




* * 




* Jl *.x 

* * 




**** X 
.*. 


Jl 

.♦IS 
NO .♦ THE 
..♦. OF A 
♦,STRU( 


mis+ 

END 
NEW 
,TURE 



•*IS THIS*. 
* THE END < 

OF THE LIKE 
*. CHAIN .* 



EWEND 

♦****J3********** 

* GO TO * 

♦ END ROUTINE ♦ 
...X* TO RELEASE ♦ 

♦SCRATCH STORAGE^ 



***************** 



*****G4-* ********* 
♦SCAN DIMENSION * 
TABLF FOR * 
VARIABLE * 
♦DIMENSION ENTRY* 
* 
*********** 



EW2FNT X 

*****H4* ********* 

* COPY * 
♦2ND FILE DICT. * 
♦ENTRY AND TEXT * 

* FOR ENTI'.Y ♦ 

* * 
***************** 



.*. 



J4 *. 

.* *. **** 

* END OF *. YES * * 

DIMENSIONED .*....X* Jl * 

*. TABLE .* * * 

*. .* **** 



* Al* NOTE: 



CONTROL IS PASSED TO 
PHASE EY (OPTIONAL) OR 
PHASE FA (NON-OPTIONAL) 
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***** 

*EY * 
* Al* 



*****£!**** ****** 

* * 

* REVERSE * 

* SECOND FILE * 

* POINTERS * 

* * 
***************** 



EY16 X 

*****B1 ********** 

* SCAN PROC * 

* AND DECLARE * 

* CHAINS FOR * 

* ALLOCATE * 

* STATEMENTS * 
***************** 



.* END OF 
*. CHAINS 
*. 



***** 
*FA * 
* A2* 



* EXAMINE EACH * 

* ITEM AND PICK * 

* UP ATTRIBUTES * 

* * 
***************** 



.EY21 X 

*****E1 ********** 

* IF ITEM IS * 
•STRUCTURE. CHECK* 
♦DESCRIPTION IN * 

* ALLOCATE WITH * 

* DECLARATION * 
***************** 



.DICBLD X 

*****F i ********** 

* MAKE NEW DICT * 
♦ENTRY FOR EACH * 

* ITEM, COPYING * 
♦ATTRIBUTES FROM* 

* DECLARATION * 
***************** 



.MOVEST X 

*****G1**** ****** 

•COPY ANY SECOND* 

♦FILE STATEMENTS* 

...» ASSOCIATED * 

* WITH * 

* DECLARATION * 
***************** 
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Chart FA. Phase FA Overall Logic Diagram 



**** 

* * 

* Al *... 

* * . 
**** . 

CE32 X 

*****A1 ********** 

* MOVE BYTE * 

* FROM INPUT * 

* TO * 

* OUTPUT AREAS * 

***************** 

**** 



* TEXT POINTER « 

* AND CALL * 

* CENDTS * 

***************** 



*****C1 ********** 

* * 

* BUMP INPUT * 

* TEXT POINTER «. 

* * 

***************** 
X 
. **** 

* * 
...» CI * 

* * 
**** 



INPUT FROM PHASE EP OR 
PHASE EH OR PHASE EY 



* SCRATCH CORE i 

* INPUT/OUTPUT * 
« TEXT BLOCKS. * 
•SET UP POINTERS* 

***************** 



*****B2 ********** 

* PICK UP TEXT * 

•BYTE. SAVE HIST* 
.X*TRANSLATE BYTE *- 

* ANO EXECUTE » 

* TRANSFER * 
***************** 





Routine 


Chart 


Location | 


| Function 


To | Return | 


| Constants j CEINT | Fl | Bl | 


1 Keyword 


CEKEY 


F2 


Bl | 


| Second Level Marker 


CE2L 


F3 


Bl | 


| DO or Blank 


CEBNK 


FM 


B2 | 


| Right Parenthesis 


CERP 


F5 


Al | 


| Left Parenthesis 


CELP 


F5 


Al | 


| I SOB 


CEISUB 


Gl 


B2 | 


| Down Arrow 


CEDWAX 


G2 


Al | 


| Semicolon 


CESMCL 


HI 


Al | 


| P Format 


CEKPFR 


H2 


Bl | 


| Identifier 


CEID 


G3 


* | 


| SN, SN2, SL 


CEKSN 


H5 


Bl | 


| CALL 


CEKCEN 


J3 


Bl | 


| PROC, BEGIN 


CEKPRC 


Jl 


* | 


| DECLARE, ENTRY 


CEKDCL 


J2 


* | 


| ITDO 


CEKIDO 


J« 


Bl | 


| ON 


CEKON 


J5 


CI | 


I End of Block 


CEKEOB 


K3 


B2 | 


I End of Program 


CEKEOP 


K» 


* | 


| End of Text Block 


CENDTS 


K5 


Bl | 



*****F1 ********** 

* * 

* CALL CECON • 

* CONSTANTS » 

* ROUTINE * 

* 4 
***************** 



*****p 2 ********** 
•PICK UP KEYWORD*' 

* TRANSLATE, • 

* AND EXECUTE • 



•SAVE 2ND LEVEL 
•CODE BYTE THAT 



• SET 2ND LEVEL • 

* SWITCH * 
***************** 



* IF VALID DICT « 
*REF MOVE TO 0/P* 

* ELSE SKIP TD ♦ 

• NEXT BLANK OR • 

• NON ZERO BYTE • 



• BUCKET COUNT 

• FOR I REDUC C 

• BRACKET COUNT 



*****G1 ********** 

* MOVE SUB * 

* AND BINARY * 



*****G2 ********** 
♦MOVE TEXT FROM * 
♦INPUT TO OUTPUT* 
* TEXT UNTIL • 
*= SIGN IS FOUND* 



G* *. 
.» IS *. 

THIS A *. YES 


CESCN 

*****Q5 ********** 

* GO T3 SCAN * 


DECLARATION* 


* * 
****•****«•*•**•* 



***H1******** 
CLEAR FLAGS 



***************** 



* GO TO PICTURE 



*H3******** 



MOVF. 
IDENTIFIFK 
TO OUTPJT 



ETC T3 3UTPIJT 



CEKPRC 

*****jl********* 

• UPDATE BLOCK 

• LEVEL AND 
•COUNT AND SKIP 

• OVER CHAINS 
* 
**************** 



*****J2 •••*••••• 

•REMOVE SN. ETC 

* FROM 

* OUTPUT TEXT 
* 
**************** 



*****K2********* 

* SKIP INPUT 

* POINTER TO 



INPUT POINTER 



GET NEXT 

BLOCK 
IN CHAIN 



CEKIDO 

*****J4******* 

* 

♦ UPDATE BLOCK 



CEKFOP 

*****K*********» 

* UPDATE END OF 

•TEXT REFERENCE 

* RELEASE INPUT 



AND SCRATCH 



*****J5* ********* 
♦MOVE BLOCK IEVL* 
* CUUNT AND ON- * 
COND TO 0/P SET* 



TEXT BLOCK. 



THAN BLOCK » 

«*«****«******* 
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**** 

* * 

* A2 * 

* * 
**** 



.X. 



*****A1********** 

* * 

* GET START * 

* OF * 

* TEXT * 

* * 
***************** 



* BUMP * 

* INPUT POINTER * 

* BY 1 * 

* * 
***************** 



CEKPRC 

*****82 ********** 
♦MOVE STATEMENT * 

* TO OUTPUT, * 
...X* OMITTING *. 

* L AND C * 



***************** 



*****B 3 ********** 

* BUMP * 

* INPUT POINTER * 
TO NEXT * 

STATEMENT * 

* * 
***************** 



.X* 



.* UN, *• 

.* SIGNAL, *. YES 
*. OR REVERT .*.-.. 
♦.STATEMENT.* 



CEKENU 

*****C 2 ********** 

♦MOVE STATEMENT * 

* TO OUTPUT, * 
...X*INSERTING L AND*. 

* C OF CONTAIN- * 

* ING BLOCK * 
***************** 



CEKON 

*****D2 ********** 
*MOVE STATEMENT * 

* TO OUTPUT, * 
...X*INSERTING L AND*. 

* C AFTER IDENT * 

* BYTE * 
***************** 



.* *. YES 

*. IDENTIFIER .*.... 
*. .* 

*. .* 



***************** 



.*. 

E3 *. 

.* *. 

.* ENTRY *. NO 

,X*. FOUND .*... 

*. .* 



*. 



.* 



* MAKE * 
<* DICTIONARY * 

* ENTRY * 

* * 
***************** 



.* DICT *. YES 
*. REF .*.... 

*. .* 



* UPDATE * 
.X* INPUT POINTER * 

* OVER REF * 

* * 
***************** 



*****F 3 ********** 

* * 

* UPDATE * 

* INPUT POINTER *. 

* OYER BCD * 

* * 
***************** 



*****F4********** 



***************** 



.* LEFT *. YES 
*. BRACKET .*.... 
*. .* 



.* PRECEDING *. YES 
,X*.DICT REF FOR .*.... 

*. ARRAY .* 



*****G3********** 

* * 

* INSERT * 
<* SUBSCRIPT * 

* MARKER IN * 

* OUTPUT * 
***************** 

'. **** 



CE32 X 

*ft***G4********** 

* * 

* INSERT * 

* FUNCTION OR *. 

* PSEUDO-VAR * 

* MARKER * 
***************** 



.* 






*. 


YES 






HOP 






*. 


* 


. .* 
*• .* 
* NO 

X 

**** 

* * 

* A2 * 

* * 
*•** 


,* 





.* *. Y 

X*. FIRST .*. 

*. .* 



*****J2 ********** 



* MAKE INCLUDE * 
♦CARD DICT ENTRY*. 



*****H 3 ********** 

* * 

* UPDATE START * 
,X* OF 2ND FILE * 

* POINTER * 

* * 
***************** 



**** 

*****J3********** 

* MARK GK, * 

* GP, GQ, GR * 
IF ARG LIST *. 
IN PROGRAM * 



.X* 



***************** 



***************** 



***** 
*FI * 
* Al* 
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Chart FI. Phase FI Overall Logic Diagram 



***** 
*FI * 
* Al* 

* * 
* 


**** 

* * 

* A2 * 
**** 






**** 

* * 

* A3 * 

* * 
**** 


X 
*****AL ********** 

* INITIAUZE. * 

* GET SCRATCH * 


CESTRT X 

*****A2******** 

* LOOK AT BYTE 

* AND TAKE 


** 

* 

** 


ceoops x 

*****A3********** 

* * 

* BUMP * 

* * 
***************** 


* FIRST INPUT * 

* TEXT BLOCK * 

***************** 


* BRANCH 

* 

*************** 



**** 

* * 

* B5 * 

* * 
**•* 



*85********* 



IS IT *. YES 



IS IT 00 
**. .*" 



*****C2********* 



***************** 



.X*. KEYWORD GOTO . 
♦OR R FORMAT* 



*****C 3 ********** 

♦ TAKE ACTION * 
♦DEPENDING WHET-* 
♦HER TRANSFER IN* 

♦ OR OUT OF ♦ 

♦ KNOWN BLOCKS ♦ 
***************** 



.* RIGHT *. 

.* OR * 

LEFT 

♦PARENTHESIS* 

*. .* 

"**YES 



************ 



CEKSN 

*****£ I ********** 

* SAVE * 

* STATEMENT * 

* NUMBER. SKIP * 

* REST OF ENTRY * 



*****H1 ********* 



* CLEAR BRACKET * 



X* A3 * 
**** 



ERROR 

"*. .*" 

* YES 



*****C4********< 
♦TRANSLATE BYTE 



********** 



•.VARIABLE 



«*** 

♦ * 

♦ 05 * 

♦ * 
**** 



*****D5********* 

* GIVE ERROR 

* MESSAGE AND 
.X* SUBSTITUTE 

♦DUMMY REFERENCE 

♦ 

**************** 



*****Q2* ********* 



C CONDITION 
************** 



*****H2 ******** 
* 

* UPDATE 

* BLOCK LEVEL 

* AND COUNT 



I 
I 

| Function 

| SB, SN2, SL 

j Semicolon 

I BEGIN, PROC 

| ITDO 

j END 

j END ITDO 

j DATA LIST DO 

| ISUB 

| ON 

| Function 

j Pseudo-Variabli 

j File 

| Data Item 

j Argument 

| KEYTO 

| End of Program 

i- 

I 



I 
I 

| Routine 

| CEKSN 

I CESMCI 

| CEPRBG 

| CEKIDO 

| CEKEND 

j CEDOND 

| CEDDOL 

| CEISUB 

| CEKON 

| CEFNMK 

! j CEPSMK 

j CEFILE 

j CEDTCK 

1 CEINFR 

| CEKYTO 

| CEKEOP 



Chart Location 

r r ^ 

From | to 1 Return 



See Chart 



*****H3********* 



BLOCK LEVEL 



************ 



* UPDATE BLOCK 



*****JX ********** 



*****J2 ******** 
* 

* BUMP OVER 

* SUB 

* AND CONSTANT 



.* 11 tn, *. 
•DEFINED OR A . 
FORMAL PARAM* 



* A3 *X.. 



*****j5******** 



.* IN *. *CHANGE FUNCTION* 

.* WRONG *. YES * T3 PSEUOO-VAR * 
.1/0 LIST. CAN.* X* OR PSEUDO-VAR * 



IT BE CONVER- 



TO FUNCTION 
************** 
**** 
A3 *X.. 



**** 



NO 



.VALID.* 
*. .* 
* YES 
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Chart FK. Phase FK Overall Logic Diagram 



*****A2 ********** 
* GET SCRATCH * 



*****A3******* 



SETS ENTRY * 
***************** 



*****C3********** 



DICTIONARY 



COUNTS OF 

IDENTIFIERS 

AND CONSTANTS 

IN SETS ENTRY 



*****D5* ********* 

* INSERT * 

♦CONSTANTS LIST * 

.X* FROM STACK * 



*. IDENTIFIER 



CESCN .*. 

E4 *. 
.* *. 
YES .* IS IT *. YES 
* X*. 8UALIFIE0 .*.... 



* OUALIFICAT10N * 

* * 
***************** 



*****F2********** 



***************** 



* HASH BCD * 
***************** 



*****G2********** 



* SCAN OF *X 

* CONSTANT * 

* STACK * 

***************** 



.* DECIMAL *. 
INTEGER .« 
♦.CONSTANT .* 



*****G4** *♦♦♦**** 



CHAIN SAME 



***************** 



*****H3********** 

* * 

* COMPILER * 

* ERROR. ♦ 

* TERMINATE * 

* * 
***************** 



FOUND 
**. .** 



*****H5* ********* 

* * 

* ERROR. * 
X* WRITE « 

* DIAGNOSTIC * 

***************** 

'. **** 
• ♦ * 
..X* C3 * 



**»**J 1********** 



* ENTRY *X 

* DOWN ONE * 

* PLACE ♦ 
***************** 



.*. KITH NEXT 



*****J 3 ********** 



* CURRENT ENTRY * 

***************** 



.OF SETS DECL-. 



*J5********** 

* 
ERROR. * 



***************** 



FOERR2 X 

*****K2 ********** 

• SOURCE ♦ 

♦ ERROR. ♦ 
....♦ WRITE * 

* DIAGNOSTIC * 

***************** 



*****K4********** 

* INSERT * 

* DICTIONARY * 

* REFERENCE * 

* IN SETS * 

* ENTRY * 
***************** 



**** 

* * 

* C3 * 

* * 
**** 



**** 

* * 

* C3 * 
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Chart FO. Phase FO Overall Logic Diagram 



***** 

*F0 * 
* Al* 



Al ». 
.* *. 
.* NEED 
*. TEXT BE 
*. MOVED . 
*. .* 
*. .* 
* YES 

X 

*****g I ********** 

* * 

* * 

* SCAN TEXT 



***************** 



*X. 



***************** 



.*. 



.* PROC *. NO 
.X*. OR BEGIN .*... 
*. .* 

*. .* 



*****B3********** 

* MAKE DICT * 
*ENTRY FOR EACH * 

.* DISABLED * 

* CONDITION * 

* PREFIX * 
***************** 



*****B4* ********* 

* * 
♦MAKE DICT. ENTRY* 

* FOR PREFIX * 

* CHANGE BYTE * 

* * 
***************** 



.* END OF 
.X*. PROGRAM 
*. 



***** 
*FQ * 
* Al* 



CI 
* 

PROC 

OR 

BEGIN 

► . . 

*. .* 



.X* 



***************** 



*****£ 3********** 

* MAKE DICT * 
♦ENTRY FOR EACH * 

DISABLED *. 
CONDITION * 

* PREFIX * 
***************** 



.* CHECK *. N3 
.X*. OR NOCHECK .*... 
*. LIST .* 



.* LIST *. YES 
.ITEM = LABEL .*... . 
♦.VARIABLE .* 



*****D5********** 

* * 

* MAKE LABEL * 
.X* VARIABLE BCD * 

* DICT ENTRY * 

* * 
***************** 



SIGNALt 

*.OR REVERT.* 

*. .* 



Gl 



.*. 



*****£ 2* ********* 

* * 
♦MAKE DICT ENTRY* 

...X* FOR PREFIX * 

* CHANGE BYTE * 

* ♦ 
***************** 

'. **** 

. * * 
. .X* CA * 
♦ * 
**** 
MVSIG 

*****F2 ********** 

* * 
♦SCAN AUTO CHAIN* 

...X* FOR ENTRY FOR *. 
♦THIS CONDITION * 

* * 
***************** 



FPO10 



ENTRY *. NO 
PRESENT .*... 

.* 



* MAKE * 

* ON-CONDITION *. 

* DICT ENTRY ♦ 

* * 
***************** 



*****F4********** 



***************** 



♦. .* 
*. .* 
♦ YES 



***************** 



*. 



G2 *. 
► FIRST *. 
INITIAL *. YES .* INITIAL *. YES 

*. LABEL ARRAY .* X*. STATEMENT FOR.*.... 

♦ASSIGNMENT.* ♦. ARRAY .* 



♦ . 



♦ . 



*****G3********** 

* MAKE ♦ 
SECOND FILE * 
DICT ENTRY * 

* FOR ARRAY * 

* * 
***************** 



.X* 



*****G4********** 

* * 

* MOVE * 
•X* STATEMENT TO *. 

* OUTPUT TEXT * 

* * 
***************** 



***** 
*FQ * 
* Al* 



*****H3********** 
♦MOVE STATEMENT, ♦ 

♦ CHAINING * 
♦IT TO PREVIOUS *. 
♦INITIAL STATEMT* 

♦ FOR ARRAY ♦ 
***************** 



* MOVE ♦ 

* STATEMENT TO * 

* OUTPUT TEXT * 

* * 
***************** 
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Chart FQ. Phase FQ Overall Logic Diagram 



***** 

*FQ * 
* Al* 



*****Al**** ****** 

* * 
♦INITIALIZE AND * 

* PICK UP START *. 

* OF CHAIN * 

* * 
***************** 



CYTABL X 

*****A2********** 

* CLEAR FLAGS * 

* CALCULATE * 
...X*POSITION OF KEY*. 

* BYTES IN * 

* PICTURE TABLE * 
***************** 



* A3 *... 

* * 
*•** . 

CYFNT X 

*****A3********** 
♦PICK UP PICTURE* 

* CHARACTER. * 
...X* CALCULATE *. 

* OFFSET. GET * 

* CODE BYTES * 
***************** 



♦****A4********** 

* * 

* EXECUTE * 
<* TRANSFER ♦ 

* INSTRUCTION * 

* * 
***************** 



Function 

Picture Character 9 

Picture Characters S $ + - 

Picture Character V 

Picture Characters , . / B 

Picture Character E 

Picture Character K 

Picture Characters CR, DB 

Picture Character z 

Picture Character y 

Picture Character G 

Picture Characters 6, 7 

Picture Characters 8, H 

Picture Character M 

Picture Character F 

Completes Entry 

End of Chain 

). 

| * See Chart 





Y- 


Chart 


Location | 








— ., 


| Routine 
| CYNINE 


-+- 


To 


1 
+~ 


Return | 
A3 | 


Fl 


| CYSDPM 




F2 




A3 | 


| CYV 




F3 




A3 | 


| CYCPBS 




F4 




A3 | 


| CYE 




F5 




A3 | 


| CYK 




Gl 




A3 | 


| CYCRDB 




G2 




A3 | 


| CYZ 




GH 




A3 | 


| CYY 




G5 




A3 | 


| CYG 




HI 




A3 | 


| CYSS 




H2 




A3 | 


| CYSSEH 




H3 




A3 | 


| CYSTM 




m 




A3 | 


| CYF 




H5 




A3 | 


| CYEK 




Jl 




* 1 


| CYENDD 




J3 




* 1 



* PROCESSES * 

* PICTURE * 

* CHARACTER 9 * 

* * 
***************** 



CYSDPM 

*****F 2 ********** 

* PROCESSES * 

* PICTURE * 

* CHARACTERS * 

* $,S,+,- * 

* * 
***************** 



*****F 3 ********** 

* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER V * 

* * 
***************** 



CYCPBS 

*****F4* ********* 

* PROCESSES * 

* PICTURE * 

* CHARACTERS * 

* . , / B * 

* * 
***************** 



*****p 5* ********* 

* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER E * 

* * 
***************** 



*****G1 ********** 

* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER K * 

* * 
***************** 



CYCRDB 

*****G2 ********** 

* PROCESSES * 

* PICTURE * 

* CHARACTERS * 

* CR, DB * 

* * 
***************** 



CYOTT 

*****G3 ********** 

* PROCESSES * 

* PICTURE * 

* CHARACTERS * 

* 1,2,3 * 

* * 
***************** 



*****G4** ******** 

* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER Z * 

* * 
***************** 



*****G5 ********** 

* * 

* PROCESSFS * 

* PICTURE * 

* CHARACTER Y * 

* * 
***************** 



*****H1********** 

* PROCESSES * 

* PICTURE * 

* CHARACTER G * 

* * 
***************** 



* PROCESSES * 

* PICTURE * 
♦CHARACTERS 6,7 * 

* # 
***************** 



* PROCESSES * 

* PICTURE * 
♦CHARACTERS 8,H * 

* * 
***************** 



* PROCESSES * 

* PICTURE * 

* CHARACTER M * 

* * 
***************** 



*****H5* ********* 

* * 

* PROCESSES * 

* PICTURE * 

* CHARACTER F * 

* * 
***************** 



CYEK .*. 

Jl *. 
.* IS * 
.* THIS 
*. STERLING 
*. PICTURE 
*. .* 
*. .* 



*****J2**^******* 

* MAKE SURE * 
•PICTURE LENGTH * 

.X* AND PRECISION * 

* ARE CORRECT * 

* * 
***************** 



***************** 



*****K1 ********** 

* GO THROUGH * 

* AGAIN, * 

* CHECKING ♦. 

* INDIVIDUAL * 

* FIELDS * 
***************** 



***** 
*FT * 
* A2* 
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***************** 



B2 



. *. 



*. 



TEST 

.* FOR * 

. SECOND FILE 

♦, STATEMENT. » 

♦MARKER.* 

*. .* 

* NO 



NU .* TEST 
...*. FOR END OF 
*. TEXT 



«****B3***» ****** 
f POINT THE * 

* RELEVANT * 

* DICTIONARY *. 

* ENTRY AT THE * 
» STATEMENT * 
***************** 



smut lUKti 

EVENT VARIABLE, 

LABEL VARIABLE, 

CONSTANT, 

LABEL CONSTANT, 

PROC, 

ENTRY, 

FILE PARAMETERS 

BUILTIN, 

BUILTIN GENERIC, 

FILE 



**** 

* * 

* D2 *.X 

* * 
**** 

* X 

*****D2 ******** 

* 

* DICTIONARY SC/1 
* 

* 
***********#**« 



.* *. 
.* TEST < 
K. DICTIONARY 
*. ENTRY .* 



TRVECT 

*****£ 3 ********** 

* CHAIN THE * 
. YES * DICTIONARY * 
.* X*ENTRY INTO THE * 

* APPROPRIATE * 

* CHAIN * 
***************** 



.* TEST FOR *. YES 
. INHERITED .*.... 
♦DIMENSIONS.* 



*****P4.*«******** 

* GIVE DIMENS. * 
♦TO BASE ELEMENTS 
.X*CREATE 2ND FILF* 
♦STATEMENTS FOR * 
♦VARIABLE BOUNDS^ 
***************** 



G2 *. 
.♦ TEST ♦. 
.* FOR END *. NO 
.OF DICTIONARY.*... 
*. 



*. 



.* 



*****G3********** 

* * 

♦ SKIP TO NEXT * 
<* DICTIONARY * 

♦ ENTRY * 

* ♦ 
***************** 



***** 
*FV * 
* Bl* 
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Chart FV. Phase FV Overall Logic Diagram 



***** 

*FV * 

* Bl* 
* * 



*****B1********** 

* * 

* REVERSE * 

* SECOND FILE * 

* POINTERS * 

* * 
***************** 



*****£! ********** 

* GET SCRATCH * 

* STORAGE ANO * 

* PICK UP START * 

* OF TEXT * 

* * 
***************** 



***************** 



OICT. REF .*. 



.•DYNAMICALLY*. 

DEFINED 

*. .* 



* ADD BASE * 
<* REFERENCE * 

* TO OUTPUT * 

* * 
***************** 



X 
.*. 

Fl *. 

• *. 

*. YES 


FV18 

*****F2********** 

* SCAN ' * 

* ALLOCATE LIST * 


.* 
*. .* 
*. .* 


* STATEMENT FOR * 

* EACH ITEM * 
***************** 



JX *. 
.* 
.* 
*. BEGIN 



DATCPY X 

****#G2 ********** 

* ADD 2ND FILE * 
♦STATEMENTS FOR * 

* EACH ITEM TO *. 

* OUTPUT * 

* * 
***************** 



FV19 

*****H2 ********** 

* SCAN CHAIN * 
*OF ENTRY TYPES * 

...X* FOR ENTRY *. 

* LABELS * 

* * 
***************** 



***** J z ********** 



*****«***««*«**** 



DATCPY 

*****H 3 ********** 

* IF LABEL * 

* RETURNS * 
...X* ADJUST STRING * 

* ADD 2ND FILE * 
♦STATEMENT TO OP* 
***************** 



* SCAN AUTO * 

* CHAIN FOR *. 
K BLOCK * 

* * 
***************** 



DATCPY 

*****J4*#******** 

* MOVE ANY 2ND * 
♦FILE STATEMENTS* 

...X*FOR VAPIABLE TO*. 

* OUTPUT * 

* * 
***************** 



YFS 
' *. 



EOP 
'*. .*" 



X 

***** 

*FX * 

* A2* 

* * 
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Chart FX. Phase FX Overall Logic Diagram 



***** 

*FX * 
* A2* 



*****A2 ********** 

* LOAO IEMFY. * 

* GET SCRATCH * 

* STORAGE AND * 
♦TEXT BLOCK FOR * 

* SORT TABLE * 
***************** 



***************** 



. YES 

.*. 

B3 *. 

.* FILE *. 

.♦ATTRIBUTE, *• 

.X*COMPILER LABEL, 

ON CONDITION* 

*.NAME .* 

*. .* 



* X* SORT ENTRY 



***************** 



***************** 



***************** 



.*. 

Gl *. 

.* *. 

► END OF < 

TEXT 



.* 
. .* 
* NO 



.* 
• .* 
* YES 



***** j x**** ****** 

* ADO STATEMENT * 
♦NUMBER TO CHAIN* 

.* FOR THIS DICT * 

* ENTRY * 

* * 
***************** 



.* END 


*. NO 


.* 


ANY *• 


*. CHAIN 
*. .* 


* 


* 


• * 
*. .* 


*. .* 






*. .* 


* YES 
**** 






* YES 


* * 








♦ E2 *.X. 








**** 






FX0170 X 

*****E 2 ********** 


FXOlOl X 

*****£ 3********** 



.* ENO 
•X*. OF 

*. CHAIN 



***************** 



***************** 



***************** 



.* *. 
.♦ALLOCATION *. NO 
,X*. OR .*... 
♦.PARAMETER.* 



*****(: 4********** 

* * 

* * 
. X* SORT ENT*Y * 

* * 

* * 
***************** 



.* BCD, ON 
. CONDITION 
♦ENTRY TYPE. 
♦.3,4,5.* 



,♦ SORT FNTRY ♦ 

* * 

* * 
***************** 



**** 

* * 

* G2 *... 

* * 

♦ *** . 
FXPRNT X 

*****G2 ********** 



.X*SCAN SORT CHAIN* X 



***************** 



..X* E2 ♦ 
♦ * 
**** 



PRINT BCD 

AND DCL NO. 

* (IF ANY) * 

************* 



.* ATTR ♦. NO 
LISTING .♦... 
♦. REOD .* 



.* XREF 

LISTING 
*. REQD 



****** j 3*********** 



PRINT 
ATTRIBUTES 



************* 



REFMOV X 

******J 4** ********* 

SCAN CHAIM OF 

* STATEMENT * 

NUMBERS AND 

* PRINT THEM * 

************* 



.* END OF 
.X*. SORT 
*. CHAIN 



***** 

♦ GA * 

♦ A?* 
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Table EG. Phase EG Dictionary Initialization 











~ T _ ~ _ 










|Main Process 


ing| 




j Statement or Operation 


Type 


j Routine 


| Subroutines Used 










_ 4. _ _ 


_ 4. _ _ _ _ _ 
















| Hashes labels 






|CAA1 
_ 1 _ 


|CHASH, CBCDL2 
_ 4. _ - _ . 
















| PROCEDURE-BEGIN chain 






|CA7 


| None 

_ 4. _ _ _ _ . 
















| BEGIN 






|CA8A 
-4- — 


| None 

L _ _ . 










t 






| PROCEDURE 






| CAPROC 
-4- - 


| CANATP, CFORP 
_ 4.__ __ 










t 


T — 




| ENTRY 






|CA10 
_ j. _ _ 


| CANATP, CFORP 

L , _ 










t 


T 




| Formal parameters 






| CFORP 
-4- - - 


|CHASH, CBCDL2 

_ 4. _ _ _ _ . 










T 


T 




| Attribute list 






| CANATP 
4. 


JCAPRE1, CATCHA # CATBIT, CATPIC 
4. _ — _ _ _ . 










— T 


T 




| Creates entry type 2 entries 


for 


| CTYPBL 


JENT2F, CDEFAT 




| labels 






1 



















Table EG1. Phase EG Routine/Subroutine Directory 



r t- 

| Routine/Subroutine j 



Function 



CAA1 

CANATP 

CAPROC 

CAPREl 

CATBIT 

CATCHA 

CATPIC 

CA6 

CA8A 

CA10 

CBCDL2 

CDEFAT 

CFORP 

CHASH 

CTYPBL 

ENT2F 

TYPW 



Scans label table and hashes labels. 

Processes attribute list. 

Processes PROCEDURE statements. 

Processes precision data. 

Processes BIT attribute. 

Processes CHARACTER attribute. 

Processes PICTURE attribute. 

Scans the PROCEDURE-BEGIN chain for the relevant statements. 

Processes BEGIN statements. 

Processes ENTRY statements. 

Traverses the hash chain looking for entries with the same BCD as 
that just found. 

Completes data byte for entry type 2 entries by default rules. 
Processes formal parameter lists. 

Obtains an address in the hash table for an identifier- 
Creates entry type 2 entries for labels. 
Creates or copies second file statements. 
Scans ENTRY chain. 
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Table EI. Phase EI Dictionary Declare Pass One 
r- 



_ _ _ T — — — _ T _ _ _ — « 1 

| Main Processing | 
Statement or Operation j Routine | Subroutines Used 
x + 

Scans DECLARE statement ' |CCGS0 |None 
x x 

Scans text |CCGS2 | None 
+ x 

Processes structure level |CCGSCM J None 
x + 

Factored attribute, left | CCFLP |CFPMCR 

parenthesis j j 

_ _ X _ X_ _ _ _ _ 


T T 

Factored attribute, right |CCFRP (None 
parenthesis j | 
+ + 

Data following DEFINED attribute JCCDEF JNEWBLK, CTXTRM 

X X 

POSITION | POSIT |None 

.. _X _ _ _ X _ _ „ 


— _ _ .J. _ _ .j. _ _ _ 

CHARACTER, BIT j C HABIT | CTXTRM 

X X 

PICTURE |CATPIC |None 

X X 

USES, SETS |SETS | None 

X X 

LIKE | LIKE | None 

X X 

KEY | KEYED |None 

X X 

Dimension JCDDIMS j CTXTRM, AST, TOMENE, ERRORB 

X X 

Precision JCDPREC |ERRNEG, SCLBIG 

X X 

INITIAL JEJINIT j CECON, EHINIT 
INITIAL CALL | INC ALL j CTXTRM 



Table Ell. Phase EI Routine/ Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



I" 



AST 

CATPIC 

CCDEF 

CCFLP 

CCFRP 

CCGSCM 

CCGSAT 

CCGSE 

CCGSOO 

CCGS2 

CDDIMS (EJ) 



Deals with the case of * dimension bounds mixed with non-* bounds. 

Processes PICTURE attributes. 

Processes data following DEFINED attribute. 

Processes factored attributes (left parenthesis). 

Processes factored attributes (right parenthesis). 

Processes structure level. 

Attribute routine selector. 

Scans DECLARE chain. 

Scans text. 

Scans source text. 

Processes dimension attributes. 
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Table Ell. Phase EI Routine/Subroutine Directory (cont'd) 

Function 



r t 

| Routine/Subroutine | 

,. + 

CDPREC (J) | Processes precision attributes. 



CECON (EH) 

CFPMCR 
CHABIT 

CSGSOO 
CTXTRM 

EHINIT (EH) 

EJINIT (EJ) 

ERRNEG 

ERRORB 

GENTRY 
INCALL (EJ) 
IVROOM (EH) 

IVPUTL (EH) 

IVPUTC (EH) 
IVPUTO (EH) 

KEYED 

LIKE 

NEWBLK 

POSIT 

SCLBIG 

SECON 

SETS 
TOMENE 



Makes a dictionary entry for a constant unless one has already been 
made. Returns the dictionary reference of the constant entry. 



Obtains more storage for the factored attribute table. 



Processes CHARACTER and BIT attributes. 



Detects end of DECLARE chain. 

Tests for space in current text block and obtains new block if nec- 
essary. 

Processes the INITIAL attribute except for the initialization of 
label variables and INITIAL CALL. 

Processes INITIAL attribute and LABEL with a label -constant list. 

Deals with the case of a negative precision specification. 

Deals with the case of lower dimension bound declared greater then 
the upper bound. 

[Keeps a count of parentheses in GENERIC and ENTRY processing. 

Processes INITIAL CALL attributes. 

Checks if there is space in scratch storage for another entry. If 
not, it makes a dictionary entry and chains it to the previous one 
or to the C8 in text as required. 

Places a dictionary reference in the 'initial list* for a label 
constant. If the constant is not known, a dummy reference is 
inserted. 

Places a dictionary reference in the 'initial list* for a constant. 

Places the dictionary reference of zero in the 'initial list* for a 
negative or imaginary replication factor. 

Processes KEY attributes. 

Processes LIKE attributes. 

(Obtains new text block. 

Processes POSITION attributes. 

Deals with the case when the scale factor in a precision specifi- 
cation for fixed- point data is declared too large. 

Creates a dictionary entry for a constant provided the appropriate 
entry has not been already made. 

Processes USES and SETS attributes. 

Deals with the case when the number of dimensions declared is great- 
er than 32. 
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Table EL. Phase EL Dictionary Declare Pass Two 



j |Main Processing | | 
| statement or Operation Type | Routine | Subroutines Used j 

y + + ^ 

j Scans chain of DECLARE statements |CGENSC |CDCLSC | 
j. + + 1 

j Scans each item of DECLARE JCDCLSC JATLSCN, BCDPR, CDFLT, CDICEN, j 
[statement | |CDIMAT, DCIDPR, INTLZE, POSTPR, j 
| | jSELMSK, STRPR j 
L _ _ _ _ _J. «. J._ — — — _ _ 4 


(Initializes each identifier | INTLZE | DCIDPR | 
j declared j j j 
j. + + ^ 

| Processes factor brackets and level | DCIDPR |TEMSCN, BCDPR | 
| numbers j j j 

l x_ _ — _ J. _ _ _ - — — J 


| Scans for next level number |TEMSCN |CDATPR | 
1 _ _ _ _J. _«. j._ _ _ _ _ __ J 


j Processes BCD of identifier | BCDPR |BCDISB f CHASH, SELMSK | 
j. + + 1 

| Hashes BCD of identifier |CHASH |None | 
j. + + ) 

| Scans list of attributes following JATLSCN JCDATPR | 
| identifier | j j 

j. + + ^ 

| Applies factored attributes |CDFATT |CDATPR | 
,. 1 + i| 

Applies implicit attribute | IMPATT |None | 

i. + + ^ 

| Attributes controlling routine |CDATPR |CDAT40, CDAT41, CDATH2, CDAT43, | 
j | JCDAT44, CDAT45, CDAT48, CDAT49, | 
| | JCDAT4A, CDAT4B, CDATUC, CDAT4D, j 
J 1 |CDAT4F, CDAT54, CDAT55, CDAT56, | 
| | |CDAT57, CDAT58, CDAT59, CDAT60, j 
| | JCDAT61, CDAT62, CDAT63, CDAT64, j 
| j |CDAT69, CDAT6A, CDATBU, CDATB8 | 



t i. X J 
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Table ELI. Phase EL Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 

I" 



Function 



ATLSCN 
BCDISB 
BCDPR 

CDATB4 (EK) 

CDATB8 (EK) 

CDATPR (EK) 

CDAT40 (EK) 

CDAT41 (EK) 

CDAT42 (EK) 

CDAT43 (EK) 

CDAT44 (EK) 

CDAT45 (EK) 

CDATU8 (EK) 

CDAT49 (EK) 

CDAT4A (EK) 

CDAT4B (EK) 

CDAT4C (EK) 

CDAT4D (EK) 

CDAT4F (EK) 

CDAT54 (EK) 

CDAT55 (EK) 

CDAT56 (EK) 

CDAT57 (EK) 

CDAT58 (EK) 

CDAT59 (EK) 

CD AT 60 (EK) 

CDAT61 (EK) 

CDAT62 (EK) 

CDAT63 (EK) 

CDAT64 (EK) 

CDAT69 (EK) 

CDAT6A (EK) 



Scans the list of attributes following the identifier. 
Checks for multiple declarations, etc. 
Processes BCD of identifier. 
Processes SECONDARY attribute. 
Processes POS attribute. 
Attribute controlling routine. 
Processes DECIMAL attribute. 
Processes BINARY attribute. 
Processes FLOAT attribute. 
Processes FIXED attribute. 
Processes REAL attribute. 
Processes COMPLEX attribute. 
Processes VARYING attribute. 
Processes PICTURE attribute. 
Processes BIT attribute. 
Processes CHARACTER attribute. 
Processes FIXED DIMENSIONS attribute- 
Processes LABEL attribute. 

Processes ADJUSTABLE DIMENSIONS attribute, 
Processes ABNORMAL attribute. 
Processes NORMAL attribute. 
Processes USES attribute. 
Processes SETS attribute. 
Processes ENTRY attribute. 
Processes GENERIC attribute. 
Processes EXTERNAL attribute. 
Processes INTERNAL attribute. 
Processes AUTOMATIC attribute. 
Processes STATIC attribute. 
Processes CONTROLLED attribute. 
Processes INITIAL attribute. 
Processes LIKE attribute. 
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Table ELI. Phase EL Routine/Subroutine Directory (cont'd) 

Function 



r T" 

| Routine/Subroutine | 



h 



H 



CDAT6B (EK) 
CDCLSC 
CDFATT (EM) 
CDFLT (EM) 
CDICEN (EM) 
CGENSC (EM) 
CHASH (EM) 
DCID1 
DCIDPR 
ECHSKP (EK) 
IMP ATT (EM) 
INTLZE 
POSTPR 
SCAM (EM) 
SELMSK 
STRPR 
TEMSCN 



Processes DEFINED ATTRIBUTE. 

Scans each item of DECLARE statement. 

Applies factored attributes. 

Applies default attributes. 

Constructs dictionary entry. 

Performs phase initialization and scans chain of DECLARE statements. 

Hashes BCD of identifier. 

Main scan routine. 

Processes factor brackets and level numbers. 

Initializes and passes control to Module EM. 

Applies implicit attributes. 

Performs initialization for each identifier declared. 

Post- processor. 

Scans chain of DECLARE statements. 

Selects correct test mask to be initialized. 

Processes inheriting of dimensions in structures. 

Scans ahead for next level number. 
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Table EP. Phase EP Dictionary Entry III and Call 



| Main Processing] | 

Statement or Operation Type J Routine j Subroutines Used j 

x + ., 

Scans for PROCEDURE entries type 1 JENTRY3 (None j 
+ + ^ 

Follows chain of ENTRY statement JEPL40 | None j 
entry type 1 entries from a PROCE- | j | 
DURE entry type 1 j | | 
x. + .j 

Examines all labels belonging to an|LBPROC | None j 
entry type 1, constructing an entry | j j 
type 3, if necessary | j j 
+ + ., 

Follows CALL chain in text making |EPL290 |None j 
dictionary entries for entry points) | j 
x + ^ 

Examines the first character of an |CDIMAT | None j 

identifier and sets a flag indicat- | j j 

ing the range in which it lies | j j 

_ .. _ _x x _ _ _ j 


T T 1 

Applies default rules j CDFLT | None j 

+ + ^ 

Given an identifier calculates its | CHASH |None j 
offset in the hash table j | | 
x x ., 

Constructs a dictionary entry j CDICEN | None j 
x + ., 

Sets address slot to zero or the |FNDEND | None | 
end of the dictionary J j j 
+ x ^ 

Constructs list of numbers of known |BLDST2 j None j 
blocks | j j 
+ + H 



| Built in function name 

L 



SCANBF 



None 



X JL J 
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Table EP1. Phase EP Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



h 



BLDST2 

CDICEN 

CDIMAT 

CDFLT 

CHASH 

ENTRY 3 

EPL20 

EPL40 

EPL75 

EPL100 

EPL290 

EPL340 

EPL360 

EPL600 

FNDEND 

LBPROC 

PHSINT 

PHSMRK 

SCANBF 



Constructs list of numbers of known blocks. 

Constructs dictionary entry. 

Sets flag for default routine. 

Applies default rules. 

Calculates offset in hash table for given BCD. 

Scans ENTRY chain for PROCEDURE statements. 

First entry in entry type 1 chain. 

Scans ENTRY chain for ENTRY statements type 1. 

Return point from LBPROC routine. 

Processes new entry label. 

Scans CALL chain. 

Searches built-in function table for BCD of identifier. 

Blanks out BCD in text. 

Scans the CALL chain. 

Sets address slot for label. 

Processes labels of PROCEDURE or ENTRY statements. 

Initialization of phase. 

Marks later modules as "wanted* or * not wanted'. 

Checks for built-in function name. 
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Table EW. Phase EW Dictionary LIKE 



T T" 

Main Processing! 
Routine 



Statement or Operation Type 



-+ 



Subroutines Used 



Scans LIKE chain 



EWBEGN 
EWHSCN 



|EWCOPY, EWELDM, EWINCH, EWONDM 
. + 

INone 



Updates hash chain for new entry 



Calculates start of structure data 
from start of variable information 



EWVART 



None 



Changes error entry to base element 



EWCHEN 
EW2FNT 



None 



Copies dimension table entry and 
second file statement 



| EWNWBK 

I 
.x 



Table EW1. Phase EW Routine/Subroutine Directory 



r T- 

| Routine/Subroutine j 



Function 



CESCN 

EWBEGN 

EWCHEN 

EWCOPY 

EWELDM 

EWELTS 

EWEND 

EWERNC 

EWHSCN (EX) 

EWINCH 

EWNOLK 

EWNWBK 

EWONDM 

EWORDM 

EWSTRT 

EW2FNT 



Scans dictionary to find entry corresponding to BCD in text. 

Scans LIKE chain. 

Changes error entry to base element. 

Copies dictionary entry into scratch storage. 

Copies entry into scratch storage with dimension data removed. 

Tests whether the likened structure is dimensioned. 

Handles transfer of control to next phase. 

Processes erroneously "likened" major structure. 

Updates hash chain for new entry. 

Completes entry copy and places it in dictionary. 

Tests whether original structure is dimensioned. 

Obtains new dictionary block and terminates current one in use. 

Copies entry into scratch storage, inserting dimension information. 

Processes dimension information in original structure. 

Tests validity of likened structure. 

Copies second file statement and associated dictionary reference. 
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Table EY. Phase EY Dictionary ALLOCATE 



T T" 

|Main Processing | 
Routine I 



| Statement or Operation Type | 



Subroutines Used 



.+ 

| ATPROC, DICBLD, HASH, STRCPY 



Second file pointers. Scans ALLO- j IEMEY 
CATE statements I 



|. + + 

| Completes copied dictionary entry |ATPROC with |MOVEST 
jfor an allocated item (second entry j 

j | point ATPROD j 



j. + 

| Controls ATPROC and ATPROD routines |STRCPY 

| for each member of a structure | 

l j. 



| ATPROC, ATPROD 



Table EY1. Phase EY Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



ATPROC/ATPROD (EZ) 

i DICBLD 

EY16 

EY17 

EY21 

HASH 

IEMEY 

MOVEST (EZ) 

STRCPY 



Complete copied dictionary entry for allocated item by including 
attributes from ALLOCATE and second file statements. 

Collects attribute given for an identifier and copies its dictionary 
entry. 

Processes ALLOCATE statements. 

Processes identifier in ALLOCATE statement. 

Processes major structures. 

Hashes BCD of identifier to obtain its dictionary reference. 

Scans second file, reverses pointers. Scans ALLOCATE statements. 

Copies second file statement and associated dictionary entry. 

Controls ATPROC and ATPROD for each member of structure. 



Table FA. Phase FA Dictionary Context 
r t— 





|Main Process 


ing| 




Statement or Operation Type 


| Routine 
±_ _ 


± _ _ 


Subroutines Used 


Scans text 


|CE30 
_i _ _ 


|CENDTS, 
4. 


CETRAN 


Reorders subscripts; makes dic- 


T 
|CEID 


T — — 

|CESCN 




tionary entry for file and event 
variables 


_L 


4- - 




Identifies keywords 


T 

j CEKYWD 


T 

| CEKEND, 


CEKEOB, CEKEOP, CEKON, 






| CEKPRC, 


CEKSND 


Scans dictionary 


T 
|CESCN 


T ~ 
| CESTUC, 


CEYES, CFPDER, CFPDR2 , 






| CHASH, 


CE3XX 




j _ _ 


— 4-_ _ 




Makes dictionary entry for varia- 


| CFPDR2 


j CDFLT, 


CDICEN, CDIMAT, CEONCK 


bles 










4- - - 


i. _ 




Scans dictionary entry for con- 


T 

| CECON 


| CHASH 




stants and makes new entry, if 








necessary. 




_ j. 




- ~ ~ _ _ _ T 

Scans PICTURE chain entry and makes |CEPICT 


T 

|None 




new entry, if necessary. 









L X __i J 
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Table FA1. Phase FA Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



CDFLT 

CDICEN 

CDIMAT 

CEBNK 

CECON (FB) 

CEDWAX 

CEID 

CEINT 

CEISUB 

CEKCEN 

CEKDCL 

CEKEND 

CEKEOB 

CEKEOP 

CEKEY 

CEKIDO 

CEKON 

CEKPFR 

CEKPRC 

CEKSN 

CEKSND 

CEKYWD 

£ELP 

CENDTS 

CEONCK 

CEPFDR 

CEPICT (FB) 

CERP 

CESCN 

CESMCL 

CESTUC 



Determines default attributes for identifier. 

Constructs default dictionary entry for identifier. 

Determines default scale for identifier. 

Transfer point for zero or blank. 

Scans dictionary entry for constants. 

Subscript prime text marker. 

Reorders subscripts and makes dictionary entries for files and event 
variables. 

Transfer point for constant routine. 

Transfer point for iSUB. 

Transfer point for CALL to get over chain. 

Removes SN from DECLARE statements. 

Processes END keyword. 

Processes end-of-block marker. 

Handles end-of-program marker, or start of second file. 

Transfer point for keyword. 

Transfer point for iterative DO. 

Processes ON keyword. 

Transfer point for picture, format item. 

Processes PROCEDURE keyword. 

Moves SN, etc., to output stream. 

Processes start of second file statement. 

Identifies keywords. 

Transfer point for left parenthesis. 

End of text block in output file routine. 

Makes entry for programmer-named ON condition. 

Makes dictionary entry for variables. 

Scans picture chain entry. 

Transfer point for right parenthesis. 

Scans dictionary. 

Handles semicolon. 

Points at next entry in structure chain. 
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Table FA1. Phase FA Routine/Subroutine Directory (cont'd) 

Function 



r t- 

| Routine/Subroutine | 



I" 



CETRAN 

CEYES 

CE2L 

CE30 

CE31 

CE32 

CE300 

CE3XX 

CFPDER (FB) 

CFPDR2 (FB) 

CHASH 

CHASHC 

IEMFA 



Translates keyword into transfer instruction. 
Compares structure levels. 
Transfer point for second level marker- 
Controlling scan of text. 
Tests for end of block. 
Moves one byte to output stream. 
Switches to appropriate routine. 

Compares identifier in text with entry in dictionary. 
Makes dictionary entry for ordinary identifier. 
Makes dictionary for formal parameter. 
Hashes identifier. 
Hashes constant. 
Initializes phase. 



Table FE. Phase FE Dictionary BCD to Dictionary Reference 
r 



Statement or Operation Type 


|Main Process 
1 Routine 
i 


ing| 
1 


Subroutines Used 




Scans text 


|CE30 

_L _ _ _ 




| CENDTS, 
4. _ 


CETRAN 




Scans dictionary 


| CESCN 

1 
_ i 




j CESTUC, 
j CHASH, 
x _ 


CEYES, CFPDER, CFPDR2, 
CE3XX 




Checks for array, function, or 
pseudo-variable if left parenthes 
is found 


|CELP 

is| 

1 

i _ 




|CEFNCT 
1 

1 

__x 






Tests for end of text block 


| CENDTS 
± _ _ 




| CEKEND, 

j. „ 


CEKIDO, CEKPRC 




Identifies keywords 


— T — 

| CEKYWD 
, J. _ _ 




T 

| CEKEOB, 
i _ 


CEKEOP 




Makes dictionary entry 


T 
|None 




| CDFLT, 


CDICEN, CDIMAT 





_J 
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Table FE1. Phase FE Routine/Subroutine Directory 



r t- 

J Routine/Subroutine | 

1- 



Fu net ion 



CDFLT 

CDICEN 

CD I MAT 

CEFNCT 

CEKEND 

CEKEOB 

CEKEOP 

CEKIDO 

CEKPRC 

CEKYtfD 

CELP 

CENDTS 

CESCN 

CESTUC 

CETRAN 

CEYES 

CE30 

CE3XX 

CFDICN (FF) 

CFPDER 

CFPDR2 

CHASH 



Applies default rules. 

Constructs dictionary entry. 

Sets flag for default routine. 

Tests validity of function reference in text. 

Processes END keyword. 

Processes end-of-block marker. 

Processes end- of -prog ram marker, or start of second file. 

Processes iterative DO keyword. 

Processes PROCEDURE keyword. 

Identifies keyword. 

Checks for array, function, or pseudo-variable if left parenthesis 
is found. 

Tests for end of text block in output file. 

Scans dictionary. 

Points at next entry in structure chain. 

Translates keyword into transfer instruction 

Compares structure levels. 

Controlling scan of text. 

Compares identifier in text with dictionary entry. 

Makes dictionary entry. 

Makes dictionary entry for statement with ordinary identifiers. 

Makes dictionary entry for formal parameters. 

Calculates offset in hash table for given BCD. 



Table FI. Phase Fi Dictionary Checking 

r t T" 

| | Main Processing! 

| Statement or Operation Type | Routine j 



Subroutines Used 



-+ 

| CESTRT 



Scans text 



CEKEYW 



Identifies keywords 



CEKEYW 



j CEKEOB, CEKEOP, CEKIDO„ CEKSN 



Checks GOTO statement references 



CEGOTO 



None 



Converts GOTO to GOOB, if necessary JCEGOB 



None 



-+- 



Checks file references 



CEFILE 



[None 



| Checks data list items for validity | CEDTCK 

i x 



None 
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Table FIl. Phase FI Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



CECMBK 

CEDDOL 

CEDOND 

CEDREF 

CEDTCK 

CEFILE 

CEFNMK 

CEGOB 

CEGOTO 

CEISUB 

CEJUMP 

CEKEND 

CEKEOB 

CEKEOP 

CEKEYW 

CEKIDO 

CEKON 

CEKSN 

CELRCT/CERPCT 

CEOOPS 

CEPRBG 

CERFMT 

CESMCL 

CESTRT 



Tests value of previous second level marker. 

Processes function names used as control variables for DO groups. 

Processes end of iterative DO groups . 

Tests whether dictionary reference needs to be checked. 

Checks data list items for validity. 

Checks file references. 

Processes function markers. 

Converts GOTO to GOOB f if necessary. 

Checks GOTO statement references. 

Processes iSUBs. 

Bumps scan pointer over dictionary reference. 

Processes END statements. 

Processes end-of-block marker. 

Processes end- of -prog ram marker. 

Identifies keywords. 

Processes iterative DO keyword. 

Processes ON statements. 

Processes statement number. 

Process left and right parentheses. 

Checks validity of keywords in the text. 

Processes PROCEDURE and BEGIN statements. 

Processes remote format references. 

Processes semicolons. 

Controlling scan of text. 
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Table FK. Phase FK Dictionary Attribute 
r 



T T" 

| Main Processing) 
I Routine 1 



Statement or Operation Type 



Subroutines Used 



j Scans attributes area for SETS 
| lists 



FOIA 



None 



Scans SETS list 



F02 



None 



j. 

| Processes constants 



I CONPRO 



None 



j. 

| Processes identifiers 

L 



CESCN 



jCESTUC, CE3XX, CHASH 

.J. 



Table FK1. Phase FK Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 
j. 



Function 



CEIDLP 
CENQUL 
CESCN 
CESTUC 
CE3XX 
CHASH 
CMPERR 
CONPA 
CONPRO 
ENDFO 
F0ERR2 
F01A 
F02 
|-F04 
GETSCR 



Scans qualified name. 

Processes unqualified name. 

Processes identifier 

Finds address of next structure in chain. 
[Compares current BCD with BCD in hash chain. 
(Calculates offset in hash table for given BCD, 

Provides terminal error action. 

Inserts constant in ordered stack. 

Processes constants. 

Releases control. 

Diagnoses constant greater than 255. 

Scans attribute tidy-up area. 

Scans SETS list. 

Completes SETS dictionary entry. 

Obtains scratch storage. 
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Table FO 
r 



Phase FO Dictionary ON 
Statement or Operation Type 



T T 

Main Processing 
Routine 



Subroutines Used 



Scans input text for ON, SIGNAL, 
and REVERT statements 



FKMVIT 



BEFTRN, CENDTS, QP 



Moves second file from input text 
block to output text block 



F2 



CENDTS, BEFTRN 



-+- 



Makes dictionary entries for 0N- 
conditions found in ON, SIGNAL, and 
REVERT statements 



FKDCEN 



LABCD 



Examines BCD of file entries ref- 
erenced in ON, SIGNAL, and REVERT 
statements; scans previous entries 
for ON conditions 



MVSIG 



CENDTS 



Processes CHECK and NOCHECK list. 



BEFCHL 



CENDTS, LABCD 



Creates dictionary entries for 
condition prefixes 



NOMOVE 



QP 



Table F01. Phase FO Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



BEFCHL 
BEFTRN 

CENDTS 
FKDCEN 

FKMVIT 
FKNOCK 
FKPROC 
FP010 (FP) 

F2 
LABCD 

MVSIG 

NOMOVE (FP) 

Q3 

QP 
R8 



Processes CHECK and NOCHECK list. 

Replaces statements containing dummy dictionary references by error 
statements, and generates error message. 

Requests a new text block for output. 

Makes dictionary entries for ON conditions found in ON, SIGNAL, and 
REVERT statements. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Processes CHECK and NOCHECK lists. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Chains initial label statements and makes second file dictionary 
entries for each label array initialized in this way. 

Moves second file from input text block to output text block. 

Creates a dictionary entry for each label constant and each entry 
label mentioned in a CHECK list. 

Examines BCD of file entries referenced in ON, SIGNAL, and REVERT 
statements; scans previous entries for ON conditions. 

Creates dictionary entry for condition prefix. 

Processes condition prefixes changed in current block. 

Determines which condition prefixes require dictionary entries. 

Moves statement to output buffer. 



._j 
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Table FQ. Phase FQ Dictionary Picture Processor 



| Statement or Operation 


Type 


_ T T - ~ ~ ~ ~ 

|Main Processing | 

| Routine j Subroutines Used 

_i_ _ _ _ ± 




J Controls scan of PICTURE 
1 initializes 


chain; 


| CYBR3 

1 

J. _ — - _ 


|CYEK, CYFIND, CYTABL 
_± _ _ _ _ _ 




j Picture 


character 9 








|CYNINE 

i _ 


T 

jNone 

j. _ _ 




| Picture 


characters S f 


$, 


+ , 


-. 


| CYSDPM 
_i _ 


T — 

|None 

±_ ,. 




| Picture 


character V 








|CYV 

+ — ~ - 


j None 

i_ _ _ ,. _ 




| Picture 


character E 








|CYE 

i _ _ 


|CYC21 

_i «. ««__... ___.__«___«, 




J Picture 


character K 








|CYK 

L _ 


|CYC21 
_4. 




j Picture 


characters C, 


R„D 


,B. 




T 

| CYCRDB 

J. _ 


T 

|None 

4-___ _ __ _ 




j Picture 


characters 1, 


2,3 






T 

| CYOTT 

"f - - 


T 

|None 

j.-- _ __ _____ 




| Picture 


character P 








|CYP 

i _ _ _ 


J None 
_4- _ _ _ _ _ __ 




j Picture 


character Z 








|CYZ 

i _ _ 


JNone 

±_ _ _ _ 




| Picture 


character * 








| CYAST 
i _ _ 


|None 

±_ _ _ 




j Picture 


character Y 








|CYY 
i «. 


T — — 
jNone 

_± _„ 




| Picture 


character G 








|CYG 

i 


|None 

_± _ _ 




j Picture 


characters 6, 


7, 


8, 


H 


| CYSSEH 
i _ _ 


T 

|None 

J.___ __ _ 




| Picture 


character M 








| CYSTM 

i _ . 


|None 

L __ _ _ _ _ 




j Picture 


character F 








|CYF 

i _ 


T 

| None 
_± _._ _ 




| Converts integer constants 
j factor 


to sea 


le|CYC97 

1 

»± 


| CYCONV 
_j._ 




j Calculates scale factor 






j CYFNT 


|None 





_J 
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Table FQ1. Phase FQ Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



I- 



CYAST 

CYBR2 

CYBR3 

CYCONV 

CYCPBS 

CYCRDB 

CYC21 

CYC97 

CYE 

CYEK 

CYENDD 

CYF 

CYFIND 

CYFNT 

CYG 

CYK 

CYNINE 

CYOTT 

CYP 

CYSDPM 

CYSS 

CYSSEH 

CYSTM 

CYTABL 

CYV 

CYY 

CYZ 



Processes picture character *. 
Identifies picture character. 
Controlling scan of PICTURE chain- 
Converts integer constant to scale factor. 

Processes picture characters slash (/)„ comma( # ), point (.), and B. 
Processes picture characters CR f DB. 

Adjusts data to terminate picture before illegal character. 
Converts integer constant to scale factor. 
Processes picture character E. 
Completes entry for correct picture. 
Releases control at end of picture chain. 
Processes picture character F. 
Obtains code for next character in picture. 
Calculates scale factor. 
Processes picture character G. 
Processes picture character K. 
Processes picture character 9. 
Processes picture characters 1,2,3, 
Processes picture character P. 
Processes picture characters S„ $, +, -. 
Processes picture characters 6,7. 
Processes picture characters 8„H. 
Processes picture character M. 
Code table for picture characters. 
Processes picture character V. 
Processes picture character Y. 
Processes picture character Z. 
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Table FT. Phase FT Dictionary Scan 



| Statement or Operation 


Type 


| Main Process 

| Routine 
i 


ing| 

1 
-4- - 


Subroutines Used 


1 


(Scans second file 




JACl 
X _ 


T 

[None 
x 






| S cans di ct i ona ry 




T 
|B1 


T 

|None 






| Data variables 




| DATVAR 
A 


J None 
_ x 






j Event or label variables 




T 

1 EVLABV 
4— 


T 

|None 
X - - - 






| Dimension attributes 




T 

|F0 
± _ 


T 

| None 
_ X - - ■ 






| Scans AUTOMATIC chain 




|G2 
_x _ _ 


J None 
- _X 






| Scans STATIC chain 




T 

|G3 


T 

[None 
x 






| Scans CONTROLLED chain 




T 

|GE1 
i 


T 

| None 
X _ 






j Sets dope vector required 


bit 


|P1A 
-4- - _ 


T 

|None 
- 4- - - 






| ENTRY type 1 entries 




IQA4 

i 


|None 
_x 






(ENTRY type 2 entries 




IQA3 
_x _ 


|PROPIC 
X- _ 






j ENTRY type 3 entries 




IQA2 
_i 


| None 

L 






j ENTRY type 4 entries 




|QX 

i _ 


(None 
_ i _ 






| ENTRY type 5 and 6 entries 




|QA1 

x — — — 


| PROPIC 
— X - 






j Constants 




T 

| CONST 

X 


T 

(None 
X - - 






j Structures 




t — — 
j STRUCT 


— T 

| AJDMRT, 


MKDMTB, MVTXT 
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Table FT1. Phase FT Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



AC1 
AC 2 
AF3 

AJDMRT 

Bl 

BIA 

CONST 

DATVAR 

EVLABV 

FO 

FULIN 

GE1 

G2 

G3 

MKDMTB 

MVTXT 

PROPIC 

P1A 

QA1 

QA2 

QA3 

QA4 

QX 

STRUCT 

TRVECT 



Scans second file. 

Detects second file statement marker. 

Points relevant dictionary entry at statement. 

Modifies second file statements to initialize dope vectors for base 
elements, rather than for the containing structures. 

Scans dictionary. 

Initializes dictionary scan. 

Processes constants. 

Processes data variables. 

Processes event or label variables. 

Processes dimension attributes. 

Moves initial label statement to the second file, collecting togeth- 
er all statements for the same array. 

Scans CONTROLLED chain. 

Scans AUTOMATIC chain. 

Scans STATIC chain. 

Creates dimension tables. 

Moves text blocks. 

Extracts precision data from picture tables. 

Sets 'dope vector required* bit. 

Processes ENTRY type 5 and 6 entries. 

Processes ENTRY type 3 entries. 

Processes ENTRY type 2 entries. 

Processes ENTRY type 1 entries. 

Processes ENTRY type 4 entries. 

Processes structures. 

Transfer vector for appropriate chaining routine. 
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Table FV. Phase FV Dictionary Second File Merge 

r t t 

Main Processing 
Statement or Operation Type I Routine 



■+- 



Subroutines Used 



Reverses second file pointers; 
scans text for block heading state- 
ments; allocates statements and 
references to dynamically defined 
data 



IEMFV 



DATCPY, DEFMOV, DEFTST, F2M0VE, 
MOVE 



Examines ADF references in second 
file; completes defined item dic- 
tionary entry 



DEFCOM 



None 



Detects dictionary references which 
refer to dynamically defined data 



DEFTST 



None 



Examines dictionary references and 
moves any associated second file 
statements to the output string 



DATCPY 



F2M0VE, MOVE 



Table FVl. Phase FV Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



DATCPY 

DEFCOM (FW) 

DEFMOV 
DEFTST 

FVO 

FV9 

FV10 

FVl 6 

FVl 8 

FVl 9 

FV20 

FV34 

F2M0VE 

IEMFV 

MOVE 



Moves second file statements associated with dictionary reference to 
output string. 

Examines ADF references in second file; completes defined item dic- 
tionary entry. 

Modifies text references to dynamically defined data. 

Detects dictionary references which refer to dynamically defined 
data. 

Scans second file reversing pointers. 

Initializes text scan. 

Scans text. 

Releases control. 

Processes ALLOCATE statements. 

Processes PROCEDURE statements. 

Processes BEGIN statements. 

Scans AUTOMATIC chain. 

Moves second file statement to output string. 

Controlling scan of second file; invokes processing routines. 

Moves text from input string to output string. 
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Table FX. Phase FX Dictionary Attributes and Cross Reference 

r 



t T 

Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



Scans STATIC chain for all items 



FX0000 



FX0010 



I— 



Scans PROCEDURE-BEGIN chain 



FX0100 
FX0170 



FX0010, FX0101, FX0105, FX0120 



Scans CONTROLLED chain for non- 
parameter DECLARED, CONTROLLED 
dictionary entries 



None 



Scans parameter list from PROCEDURE 
and ENTRY statements 



FX0101 



FX0010 



Sorts BCD of variables and creates 
entries in scratch text storage 



FX0010 



None 



Scans circular chain of ENTRY 
statement dictionary entries asso- 
ciated with a particular PROCEDURE 
statement 



FX0105 



FX0101 



Scans AUTOMATIC chain associated 
with particular PROCEDURE or BEGIN 
block 



FX0120 



FX0010 



Prints heading line for tables 
according to options specified 



FXHD 



ATTMOV 



Scans sorted chain of identifiers 



FXPRNT 
FX0299 



FX0299 



Determines attributes of a given 
identifier if the ATR option is 
specified 



ATTMOV, FXBCD, FXDCLN, FXEND, 
REFMOV 



Scans the chain of references for a 
given identifier (if XREF is 
specified) and prints them in 
external decimal form 



REFMOV 



FXDCLN 



Converts EBCDIC of particular 
attribute to required external form 
and moves it to print area 



ATTMOV 



None 



Prints BCD of identifier having 
converted it from internal form to 
external form 



FXBCD 



None 



Converts an internal binary number 
to external decimal form and moves 
it to print buffer 



FXDCLN 



None 



Frees all scratch text storage and 
releases control to next phase 



FXEND 



None 
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Table FX1. 
r 



Phase FX Routine/Subroutine Directory 



h 



Routine/Subroutine | 



Function 



ATTMOV (FY) 
FXBCD (FY) 

FXDCLN (FY) 

FXEND (FY) 

FXHD (FY) 

FXPRNT (FY) 

FXOOOO 

FX0010 

FX0030 

FX0100 

FX0101 

FX0105 

FX0120 

FX0170 

FX0250 
FX0299 

REFMOV (FY) 



Converts EBCDIC data to required form, moves data to print area. 

Moves identifier BCD to print area, determines options to be print- 
ed. 

Converts binary number to external BCD, moves it to print area. 
Frees scratch storage, releases modules, releases control. 
Prints heading line for table according to options specified. 
Scans sorted chain of identifiers. 
Scans STATIC chain. 

Sorts BCD of variables and creates entry in text for each item. 
Tests for end of STATIC chain- 
Scans PROCEDURE-BEGIN chain. 
Scans parameter list from PROCEDURE and ENTRY statements. 

Scans circular chain of ENTRY statement dictionary entries associat- 
ed with a particular PROCEDURE statement. 

Scans AUTOMATIC chain associated with particular PROCEDURE or BEGIN 
block. 

Scans CONTROLLED chain for nonparameter DECLARED CONTROLLED dic- 
tionary entries. 

Scans text, making chain of references to each dictioary entry. 

Determines attributes of a given identifier if the ATR option is 
specified. 

Moves the references to an identifier to the print buffer and 
prints. 
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Chart 04. Pretranslator Logical Phase Flowchart 



***** 

♦04 * 
* Al* 



Al ♦ . 
.♦STREAM *. 
.* I/O STMNT *. YES 
*.0R 2ND LEVEL .*.... 
*. MARKERS .* 



*. 



*. 



*****A2********** 
♦I/O MOO. GA* 
*-*-*-*-*-*-*-*-* 
<♦ MODIFY * 
*I/0 PARAMETERS * 
* * 

***************** 



.*. 
Bl *. 
.* ANY *. 
.* FUNCTION *. YES 
*. REFERENCES ...... 

*. .* 

*. .* 



*****B2 ********** 

♦MATCH 1 GK* 

*-*_*-*_*_*_*_*_* 

>X+ CHECK * 

♦ PARAMETER * 

♦ MATCHING » 
***************** 



*****C 2* ♦*♦**♦*** 
♦MATCH 2 GP^ 
*-*_*-*_*-*_*_*_* 

♦ SECOND CHECK ♦ 

♦ ON ♦ 

♦ PARAMETERS ♦ 
***************** 



ANY CHECK .*. 
. LISTS .♦ 
*. .♦ 



*****P2* ********* 
♦CHECK LIST GU^ 
*-*_*_*_*_*_*_*_* 

.X* PROCESS * 
♦CHECK CONDITION* 
* STATEMENTS ♦ 
***************** 



.♦. 
El ♦. 
.♦STRUCT ♦. 
.♦ASSIGNMENTS^. YES 
♦. OR EXPRESS- ...... 

*. IONS .♦ 
*. .* 



,X + 



*****E2 ********** 
♦STRUC ASSIGN HF^ 
*-*-*_*_*_*_*-*_* 

PROCESS ♦ 
STRUCTURE * 
♦ ASSIGNMENTS ♦ 
***************** 



Fl ♦. 

.♦ ARRAY ♦. 

.♦ASSIGNMENTS^. 

♦. OR EXPRESS- . 

♦. IONS 



*. 



.* 



,X + 



*****P2 ********** 
♦ARRAY ASSIGN HK^ 

*-*-*-*_*-*-*-*_* 

PROCESS ♦ 

♦ ARRAY ♦ 

♦ ASSIGNMENTS ♦ 
***************** 



.♦ ANY *. 
.♦ ISUB ♦. YES 
DEFINED ...... 

♦. ITEMS .♦ 



*****G2 ********** 

♦ISUB DEFINE HP^ 

*-*-*-*-*-*-*-*_* 

.X^PROCESS ITEMS^ 

♦ DEFINED USING ♦ 

♦ ISUBS ♦ 
***************** 



***** 
♦05 ♦ 
♦ Al^ 



***** 
♦05 * 
* Al^ 
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Chart GA. Phase GA Overall Logic Diagram 



***** 

*GA * 
* Al* 



*****A2 ********** 

* * 

* INITIALIZE * 

* TEXT *. 

* POINTERS * 

* * 
***************** 



*****A3********** 



***************** 



B3 *. 
.* *. 
« FORMAT 
STATEMENT 



.* 
.* 

NO 



AFORMT 

*****B4********** 

* FORLST * 
*-*-*-*-*-*-*-*-* 

...X* SCANS * 

* FORMAT LIST * 

* (SEE D4I * 
***************** 



*****C 2*** ******* 
♦SCAN STATEMENT.* 

* SKIPPING DATA * 
♦SPECIFICATIONS, *X. 

* TRANSMITTING * 

* OTHER OPTIONS * 
***************** 



*. 



.*. 

C3 ♦. 

.♦ GET 

OR PUT 

STATEMENT 

'*. .♦* 



LAB178 

*****F1 ********** 

* FORLST * 
*-*-*-*-*-*-*-*-* 

* SCANS +X. 

* FORMAT LIST * 

* (SEE D4) * 
***************** 



4N2 .*. 

Gl *. 
.* DOES ♦. 
3 .* IT * 
.♦.CONTAIN ITDO 



.♦ WERE *. NO 
►. ANY OPTIONS .*... 
*. SKIPPED .* 
*. .* 



*****£ 2********** 

* RETURN * 

* TO SCAN ♦ 

* FOR * 

* SKIPPED * 

* OPTIONS * 
***************** 



YES .* FORMAT 
...... OPTION 

*. 



YES .* DATA, *• 
......EDIT, OR LIST.* 

*. OPTION .* 



LLODIT X 

*****H1 ********** 

* OUTPUT PRIOR * 

♦ TEXT AND END. ♦ 
♦SCAN TO THE I. * 

* REPLACE IT BY ♦ 

♦ SEMI-COLON ♦ 
***************** 



*****jl ********** 

♦ MAKE ROOM * 

♦ IN OUTPUT ♦ 

♦ TEXT AND ♦. 

♦ INSERT DO ♦ 

♦ STATEMENT ♦ 
***************** 



D3 *. 
.* *. 
.* END OF - *. h 
,X*. TEXT .*. 
♦. .* 

♦ . ■ .♦ 
♦. .♦ 
♦ YES 
. ♦♦♦* 
. *GK * 
..X* A3 * 
* * 
**** 

*****E 3 ********** 

* OUTPUT BUY ♦ 

* TEMP AND * 

* ITDO *> 

* STATEMENTS * 

* * 
***************** 



.♦ DOES *. 
.♦ LEFT *. N 
*. PARENTHESIS .♦. 
♦. FOLLOW .* 



***************** 



**** 
K * 
* A3 * 
► * 

**** 



F7 
YES .* 



*****G3 ********** 

* STACK * 

* DICTIONARY ♦ 

* REFERENCE ♦ 

* OF TEMP ♦ 

* * 
***************** 



.* 
. .♦ 
♦ YES 



ITERATION 

♦. FACTOR . 

♦. .* 



*****F4**** ****** 

* * 

* OUTPUT * 
<* FOLLOWING ♦ 

* FORMAT ITEM ♦ 

* ♦ 
***************** 



*****G4********** 

* OUTPUT END * 

* AND * 

* SELL (TEMP) ♦. 

* STATEMENTS ♦ 

* * 
***************** 



*****J4********** 

* UNSTACK * 

* DICTIONARY 

* REFERENCE 

* OF TEMP * 

* ♦ 
***************** 



*X. 



H5 ♦. 
.♦ *. 
.* RIGHT *. NC 
♦. PARENTHESES .♦.. 
♦ . .♦ 

♦. .♦ 
♦ . .* 
♦ YES 



J5 



*. 



NO .* END *. 

...*. OF FORMAT .* 
♦. LIST .♦ 
♦ . .* 
*. .♦ 
* YES 



* OUTPUT ♦ 

* AND * 

* RETURN * 

* * 
***************** 
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Chart GK. Phase GK Overall Logic Diagram 



*****C1 ********** 



***************** 



*****G1********** 

* * 

* * 

* ARGNO 

* * 

* * 
***************** 



**** 

* * 

* G5 * 

* * 
**** 



*X. 



*****02 ********** 

* SET BITS IN * 

TESYTE FOR 



***************** 



*****E2 ********** 

* * 

* * 
.X*PUSH DOWN STACK* 

* * 

* * 
***************** 



♦PARAMETER LIST * 



IN FUNCTIONS * 

***************** 



* OUTPUT PRIOR * 

* TEXTi TEBYTE! * 
« STMT NUMBER, * 
♦LEVEL AND COUNT* 



****A3 *********: 
INITIALIZE 



****************: 

**** 



****************: 



PSEUDO- 
VARIABLE 

MARKER 
*. FOUND.* 



YES .* FUNCTION 



• *• 






BASTOP 




E3 *. 








*****E4*« ******** 




• 








* * 




STOP 


* 


YES 




* OUTPUT * 




MARKER 


* 






X* ARGUMENT * 
* * 




FOUND 








. -* 








* * 




*. .* 








***************** 




* NO 








**** I 

* * . 
« F4 *.X. 

* * 




X 








**** X 




• *• 






BADELM .*. 




F3 *« 








F4 *. 


*t***F 5* ********* 


* 








.* IS *. 


* * 


END OF 


* 


NO 




.* ITS ». NO 


* OUTPUT * 


TEXT 




*.... 










* 






*. COMMA .* 


* MARKER * 










*. .* 


* * 


"*. .*" 




X 




*• .* 


***************** 


* YES 




• *** 


* YES 








* 






**** I 






* B3 


* 




* * • 


X 






* 




* G5 *.X. 


***** 




• •** 




* * • 


*GP * 










**** . 


* Bl* 






BAMORE X 


ARGNOQ X 


* * 








*****Gt********** 


*****G5********** 


* 








* ADD ONE TO « 

* ARGNO • 

* * 
***************** 


* CHECK ARGNO * 

* AGAINST OICT • 

* ENTRY OF * 

* FUNCTION. * 

* POP UP STACK * 
***************** 



BALOOP 

*****J2********** 
•OUTPUT ARGUMENT* 
« MARKER, DICT * 



*****K1********** 



***************** 



•*IS ARG *. 
.*A FUNCTION *. NO 
WITH NO .*... 
*. ARGUMENTS.* 



*****K3********** 
•SET STOP MARKER* 

• AT END OF • 
X* ARGUMENT IN *. 

• SOURCE TEXT * 

• • 
•***********•*••* 



•****K4********* 



• ARGUMENT) 

* 
**************** 
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**** 

* * 

* A3 * 

* * 
**** 



.* X*. ARGUMENT 



L»tS£ X 

SCAN TEXT 



SCALAR . 
*. .* 

"**YES 

X 
**** 

* * 

* E3 * 

* * 
**** 



SCALAR . 
*. .* 

*. .* 
* YES 



♦STRUCTURES.* 
♦ .MATCH.* 

'**VES 



**** 
J3 * 



» ITEM 
BUILT-IN 

♦.FUNCTION . 
*. .* 

"**Y£S 



COPYTP.M22 X 

*****D4* ********* 
* CREATE SCALAR * 



TESTC 
YES .» 



IS 


* 


YES 




.* PARAMETER *. YES 








, 












A CONSTANT 










* TYPE 










*. •* 




* 


*. .* 








*. .* 




************ 


* NO 








* NO 
**** 

* E3 *.x! 

* * 




**** 


X 








• **♦ . 




* * 










X 




* 81 * 














* * 










♦ * 




IS 




YES 




* CREATE SCALAR * 




* 


ARGUMENT 








* CHAMELEON *... 


X* 


Bl * 


EXPRESSION 








* DUMMY * 




* 


*. .* 








* * 


**** 


*. .* 








*♦♦*♦♦******♦♦♦♦* 






* NO 




•*** 


























* A3 


* 









« PARAMETER * 
DESCRIPTION 



G4 *• *****G5********** 

.* IS *. * ARGUMENT * 

.* ARGUMENT *. NO *IS A PARTtALLY * 

.X*.UNSUBSCRIPTED.* X* SUBSCRIPTED * 



*. .* 

"**YES 

**** 

* * 

* HI *.X. 

**** \ 
X 

«****H1 ********** 

* * 

* ERROR * 
.* MESSAGE *X 

* * 

* * 
***************** 



*****H 3* ********* 



***************** 
**** I 



.AGGREGATE.* 



AGGREGATE *. N3 



STRUCTURES 



***************** 



NO .* REDUCED 



•STRUCTURE.* 



*.OATA TYPE.* 



***************** 



*. MATCH .* 



*****K2********** 



***************** 



it*" A 

*****K5 ********** 

* CONSTRUCT * 

* A REDUCED * 

* OOPE VECTOR « 



*************** 
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Chart GU. Phase GU Overall Logic Diagram 



***** 

*GU * 
* Al* 



*****A1 ********** 

* GET SCRATCH * 

* STORAGE FOR * 

* CHECK TABLE. *. 

* INITIALIZE * 

* TEXT POINTERS * 
***************** 



(* SCAN TEXT * 

* * 

* * 
***************** 



END 


*, 


YES 








* 












X 




. .* 






***** 


**** 


*. .* 






*HF * 


* 


* NO 






* A2* 

* * 

* 


* C3 
* 
**** 



C2 *. 
STATEMENT 



**** 

» * 
* 01 * 
Y * 

**** 



*****[) 1 ********** 

* CALLA * 
*_*_*_*_*-*_*_*_* 

.*SIGNAL CHECKED ♦X. 

* ARGUMENTS * 

* RESET FMPTR * 
***************** 



ASTMT,AENDST 

*****C3********** 

* HOUSEKEEPING * 
♦FOR ENDS, ETC. * 

..X* RESET *. 
*IF-SWITCH ONCE * 

* * 
***************** 



ASPECL,AENDNQ 

*****C4********** 

* UPDATE CHECK * 

* TABLE FOR * 
..X* PROC OR BEGIN *. 

* STATEMENTS * 

* * 
***************** 

**** 

* * 

* 04 *... 

* * 
**** 

5SCAN X 

*****D4********** 



***************** 



*****C5* ********* 

* SET PCSW FOR * 
♦POSSIBLE CHECK * 

,X* STATEMENT. * 

♦PROCESS SIGNAL * 

* OR CALL STMTS * 
***************** 



ASCL 

*****D5*»* ******* 

* CALLB * 
*-*-*-*-*-*-*-*-* 

....♦SIGNAL CHECKFD ♦ 

* STATEMENT ♦ 

* LABEL * 
***************** 



*E1********** 

* 

SET ♦ 




ATFST5 .*. 

E2 *. 
.♦ *. 
YES .* ELSE *. H 




X 

**** 
* * 


*****£ 3********** 

♦ * 

♦ OUTPUT * 

♦ PRECEDING *X.. 

♦ STATEMENT ♦ 

♦ * 
***************** 


BTEST3 

YES .* 

* 


,*, 

E4 *. 

* * 


TWICE ♦ 

* 

************* 




*. THEN .* 

♦ . . ♦ 

*. .* 

* 


*. .♦ 
*. .♦ 
♦ NO 


X 
**** 

* * 

* C3 * 

* * 

**** **** 
* 


* 

*X 

* 


BPC 

*****F2 ********** 

♦ GO TO * 

♦ PSEUDO-CODE ♦ 
....* ROUTINE TO *> 

♦ CHECK THIS ♦ 
♦STATEMENT TYPE ♦ 
***************** 


♦ Al ♦ 

* * 
**** 

BS 
YE 


X 
TMT .*. 

F3 *. 

.* *. 

S .* IS *. 

.♦. PCSW .♦ 

♦. SET .♦ 

♦. .♦ 

♦ . .* 


BTEST4 

NO .* 
. . . *. 
* 

X 


X 

. *. 

F4 *. 

* * 
FUNCTION 


* 
**** 






♦. . ♦ 
♦. .* 



CAL 



. YFS *_*-*_*_ 

.♦.. X*SISNAL 

* FUNC 

* NA 
******** 



♦♦***F 5* ********* 
LLP ♦ 

*-*-*-*-* 
CHECKED ♦ 
TION ♦ 



ME 
********* 





* 






**** 


IS 




*, 


YES 


* 




FMPTR 






*. . . 


X* 


1)1 


SET 




.♦ 




* 







BENTON 


.♦. 










G5 ♦ 




**** 






* 


* 


* 


NO 


* 


pcsw 




D4 ♦X 


. . . .* 




AND FMPTR 


* 


X 


* 


BOTH 




**** 






♦.RESET 


♦ 









BVARNO X 










*****H3 ********** 




****H1 ********* 






♦ DOWNDATE * 




♦ ENTRY TO * 






♦ CHECK TABLE ♦ 




♦ CALLA/CALLB * 






♦ FOR END ♦ 




* * 






♦ STATEMENT ♦ 




*************** 






* * 
***************** 

'. **** 
. * ♦ 
..X+ Dl ♦ 
* * 




X 






**** 




LIE .*. 






CALLBA .*. 


CALSTM 


Jl ♦. 


*****j2********** 


J3 *. 


*****J4 ********** 


.* ♦. 


♦ RESET IFSW. 


* 


.* *. 


♦ RE-COPY ♦ 


.♦ IS ♦. YES 


♦ OUTPUT 00 


* 


.* WAS IT ♦. NO 


♦ STATEMENT ♦ 




* GET ENO-FLAG 








*. SET .* 


* 


*. .* 


♦ SOURCE TEXT * 


♦ . .* 


♦ OR ENDSW 


* 


♦. .* 


* * 


♦ • .♦ 


***************** 


*. .* 


***************** 


♦ NO 






♦ YES 


• 


• 






CALSYM X 


CALLEX 


• 






****** 3 ********** 
♦ OUTPUT * 


****K4* ******** 


• 






♦ REQUIRED * 


* * 








* STATEMENT ♦ 


* * 



*****H 5 ********** 

* SET FMPTR IF * 

* ANY ARGUMENTS ♦ 

* IN LIST ARE * 

* CHECKED. SCAN * 

* FROM MARKER ♦ 
***************** 



***************** 



*************** 



Section 3: Charts and Routine Directories 141 



Chart HF. Phase HF Overall Logic Diagram 



***** 

*HF * 
* Al* 



**** 

* * 

* A2 * 

* * 
**** 



*****A1 ********** 



***************** 



,X* SCAN TEXT *. 

* * 

* * 
***************** 



.* STRUCTURE 
■ ASSIGNMENT 
♦.STATEMENT. 



**** 
. YES * < 
.*....X* E2 < 



.* ITEM IN *. YES * * 
.PUT STATEMENT.*. ...X* G2 * 
*DATA SPECN.* * * 
*. .* **** 



C3 *. 

.* *. 

.* STRUCTURE * 

. IN GET STMT 

♦DATA SPECN.* 



***** 

*HK * 
* Al* 



*****D1 ********** 

* * 

* EXPAND * 

* STRUCTURE *X 

* ITEM * 

* * 
***************** 



.* *. 
► IS IT * 

GET DATA 
*. LIST .* 



SAFND/SA73 X 

*****Q5* ********* 

* OUTPUT END * 

* STATEMENTS * 

* AND SFLL * 

* TEMPS IF * 

* NECESSARY * 
***************** 



* E2 *.X. 

* * . 
**** 

SADRAB X 

#****E2* ********* 
♦BUILD UP STACK * 

* FOR STRUCTURE * 

* UNTIL FIND BASE*X. 

* ELEMENT. BUY * 
♦TEMPS IF NEEDED^ 
***************** 



* RESET * 
.♦SOURCE POINTER *X. 

* TO START * 

* * 
***************** 



.♦ ARE ♦. 
YES .♦ THERF *. 
......M3RE ELEMENTS.* 



.*. SA32 

F2 *. *****F3********** 

.* IS *. * OUTPUT BASE ♦ 

* SOURCE *. NO ♦ ELEMENT AND * 

POINTER AT .♦ X* REPLACE IT IN * 

!>. START .* *SOURCE TEXT BY * 

*. .* * NEXT ITEM * 

*. .* ***************** 
* YES 



♦SCAN STRUCTURE * 

* EXPRESSION ♦X.. 

* OR STATEMENT ♦ 

* * 
***************** 



.* *. 

". STRUCTURE . 

♦. .* 



.* HAS *. NO 
. STACK BEEN .*... 
*. 8UILT .* 



BYN11 

*****H 5* ********* 

* BACKSPACE * 
*OUTPUT POINTER ♦ 

* TO START OF * 

* THIS SCALAR * 

* ASSIGNMENT * 
***************** 



X 

.*. 

J2 *. 

.* *. 

.* END *. 

. OF EXPRN .< 

*. OR STMT .* 

*. .* 



SA36 .*. 

J3 *. 

.* ♦. 

.* BY NAME *. 

*. ASSIGNMENT . 

♦.STATEMENT.* 



♦ SEARCH FOR ♦ 
.X* BCD-MATCHING *. 

♦ BASE ELEMENT ♦ 

♦ * 
***************** 



.* *. 
.* * 

• X*. FOUND 

♦. . * 



SAX1 ETC X 

*****K 3 ********** 

* CHECK ITEM * 
♦AGAINST PATTERN^ 

* OF STACK. *. 

* OUTPUT IT AND * 
♦REPLACE BY NEXT* 
***************** 



***-**K5* ********* 

* OUTPUT * 

* BCO-MATCHING * 
.♦ BASE ♦ 

* ELEMENT ♦ 

* * 
*******•**••**•** 
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***** 

*HK * 
* Al* 

* * 



***************** 



MREOP .*. 

Bl *. 
.* IS 
.* THIS 
..X*. END OF 
*. TEXT 



.♦ 

■ • ♦ 
* NO 



.* IS IT *. V 
*. NESTED .*. 
•.STATEMENT.* 



***** 
♦HP * 
* Al* 



* SEARCH NESTED * 
.X*STATEMENTS FOR *. 

* ASSIGNMENTS * 

* * 
***************** 



.*. 

Dl *. 
.* IS *. 
.♦IT I/O LIST*. YES 


LSTSCN .*. A 
D2 *. 
.* *. 
.* IS IT *. NO 


*. GET .* 
*.DATA .* 
*. .* 
* NO 


♦.STATEMENT.* 
*. .* 
*. .* 
* YES 



* SEARCH FOR * 
t* FIRST ARRAY * 

* IN EXPRESSION * 

* ♦ 
***************** 



NO .* IS IT *. 

,..*. ASSIGNMENT . 

♦.STATEMENT.* 



ARRASS 


.*. 

Fl *. 

* IS * 




.* 


THIS A 


* 


*. 


PSEUDO- 




*, 


VARIABLE 


* 



*****F 2 ********** 

* CHECK NUM8ER * 
OF ARGUMENTS * 

AND WHETHER *. 

* VALID * 

* * 
***************** 



.X* 



AADOP 

*****F 3 ********** 

* EXAMINE * 

* LEFT MOST * 

. ..X* OPERAND *. 

* (ARRAY OR * 

* SCALAR) * 
***************** 



*****F4********** 

* MAKE ONE * 

* ENTRY IN * 
<* STACK FOR *. 

*EACH DIMENSION * 

* * 
***************** 



*****F 5* ********* 

* GENERATE AND * 
♦CHAIN TEMPORARY* 

.X* AMD GENERATE * 
*BUY STATEMENTS * 

* * 
***************** 



.* THIS A 
. MULTIPLE 
♦ASSIGNMENT. 
♦.ARROW.* 



.X* 



*****G2 ********** 

* CHECK OTHER * 
♦PSEUDO-VARIABLE* 

TO LEFT ♦ 
OF EQUALS * 

* * 
***************** 



ARREXP X 

*****H1 ********** 

* GENERATE * 

* DO STATEMENTS * 

* USING *. 

* INFORMATION * 

* IN STACK * 
***************** 



AETRT 

*****H2 ********** 

* SCAN * 

* STATEMENT * 
...X* FOR *. 

* ARRAYS WHICH * 
♦NEED EXPANSION * 
***************** 



. X* 



*****H 3 ********** 

* CHECK BOUNDS * 

* AND * 
DIMENSIONS *. 

AGAINST STACK * 

* 

*************** 



***************** 



FRFTMP 

***«*H5* ********* 

* GFNERATE * 

* SELL * 
...X* STATEMENTS *. 

♦FOR TEMP3RARIFS* 



***************** 
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***** 

*HP * 
* Al* 



* A2 * 
x * 
**** 



* INITIALIZE * 

* TEXT *. 

* POINTERS * 

* * 
***************** 



MASCAN X 

***#*A 2 ********** 

* SCAN SOURCE * 

* TEXT UNTIL * 
...X* FIND DEFINED *. 

* SUBSCRIPT * 

* MARKER * 
***************** 



.* IS *. 
,* 2ND LIST *. 
.ITEM A SIMPLE. *X. 
*.DICT P.EF .* 



***** 
*IA * 
* Al* 



DEFSUB X 

*****B 3 ********** 

*SKIP TO SECOND * 

♦SUBSCRIPT LIST.* 

* BUY TEMPS FOR * 

* MULTIPLIERS. * 

* SET T2SW TO * 
***************** 



**** 


X 




DENGB 

.* 


:2 *. 
* 




.* 
*. AN 
*OR 


EITHER * 
INTEGER 
CONSTANT* 



.* 
I . * 
* NO 



*****£2********** 

* * 

* OUTPUT * 
<* BUY TEMP, * 

* TEMP EQUALS * 

* * 
***************** 



DELISQ X 

*****F1 ********** 
*SET T2SW TO 2. * 

* OUTPUT TEMP * 
*OF ISUB, AND * *X. 

* IF IT HAS A * 

* MULTIPLIER * 
***************** 



DELOOO .*. 

Gl *. 
.* IS *. 
.♦MULTIPLIER *. YES 
*.A SIMPLE DICT.*.... 
*. REF .* 
*. .* 
.* 



* NO 



***************** 



* HI *.X 



**** 
DELTMP X 

*****H1 ********** 

* OUTPUT NESTED * 
♦ASSIGNMENT STMT* 

* TO MULTIPLIER * 

* TEMP. SUMOVE. * 

* OUTPUT TEMP * 
***************** 



* OUTPUT * 

* DICT REF *X 

* OF MULTIPLIER * 

* * 
***************** 



**** 

* * 
.X* Fl 1 

* * 
**** 



DESCLfJ 
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Kl *. 

••END OF *. 

FIRST *. 

SUBSCRIPT . 

. LIST .* 

*. .* 

*. .* 



*****K2 ********** 

* OUTPUT BASE * **** 

* ARRAY WITH * * « 
.X*SUBSCRIPT LIST *....X* A2 « 

*OF TEMPS. SELL * * * 

* ALL TEMPS * **** 
***************** 



OEGUBD 

.*' 
...X*. 



c ♦ . 
* *. 

TEST T2SW 



.X* 



* BUMP POINTER * 
TO END OF * 

FIRST-LIST * 

* SUBSCRIPT * 
***************** 



*****D4* ********* 

* SET DICT REF * 

* INTO * 
♦TABLE OF TEMPS * 

* FOR ISUBS * 

* * 
***************** 



5BDI .*. 

E<k *. 

.♦ ANY *. 

.* MORE *. 

♦.SUBSCRIPTS IN. 

*. SECOND .* 

*.LIST .* 

*. .* 

* NO 



*SET POINTER TO * 
♦START OF FIRST ♦, 
♦SUBSCRIPT LIST ♦ 
♦ * 

***************** 



***************** 



.*. 

G5 *. 

.♦IS 1ST-*. 

.* LIST ITEM *. 

.SUB (SIMPLE.* 

*. DICREFI .* 

*. .* 

*. .* 

* NO 



♦ *** 

* * 

* E2 ♦X.. 

* ♦ 

♦ *** 



IS 


IT 


*, 




SUB 
*. 


N 

.* 
.* 


* 


* 


* 


YES 







*****j5*** ******* 

* SET TEMP FOR * 

* ISUB INTO * 

* TABLE OF *. 

* TEMPS FOR * 

* SUBSCRIPTS * 
***************** 



Table GA. Phase GA Pretranslator I/O Modification 
r 



J Main Processing! 
Statement or Operation Type | Routine j Subroutines Used 
+ + 

Removes all second level markers | Throughout | None 

| phase | 
+ + 

Reorders options to put EDIT, DATA |A8 |SCNS, SCAN2 
or LIST last | | 
+ + 

Moves DO specifications to precede | SCAN2 |LLDOIT 

relevant list in data lists, adds | j 

END statements | j 

_ _ _ _x _ j. _ _ _ _ _ 


Expands iteration factors in format | FORLST | None 
lists | | 



Table GA1. Phase GA Routine/Subroutine Directory 



r t 

| Routine/Subroutine] 

|. + 

AFORMT (Processes FORMAT statements. 

A6 j Scans source text for GET and POT statements. 

A8 | Recorders options to put EDIT, DATA, or LIST last. 

A21 | Scans GET or PUT statement for data specification. 

FORLST j Expands iteration factors in format lists. 

F2 j Creates and buys integer temporary. 

F5 j Scans and outputs format item. 

F5A j Sells temporary. 

F6 J Tests for end of format list. 

F6A j Tests for end of format specification. 

F6B (Outputs end of format specification. 

F7 (Scans format list. 

LAB17B (Processes format list in GET or PUT statement. 

LLDOIT | Moves DO specifications to precede relevant list in data lists, adds 

| END statements. 

MKROOM j Provides space in a statement in new source file. 

MR (Initializes text blocks and pointers, and obtains scratch storage. 

SCAN2 (Scans option list for end of option or statement, expands DO speci- 

jfications, and changes certain function markers into pseudo- variable 
(markers. 

SCNS j Scans option list for end of option or statement. 



Function 
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Table GK. Phase GK Pretranslator Parameter Matching 1 

r t t- 

|Main Processing! 
| Routine | 



Statement or Operation Type 



Subroutines Used 



| Scans source text for function 
| markers 



BASCAN 



CPSTMT, CRSTMT 



j. 

| Processes function, puts out ref- 
j erence and initial code bytes 



BAFM 



SCANRP 



f 

| Processes arguments 

j. 

| Checks numbers of arguments 

l 



-+ 

j BALOOP 

j ARGNOQ 
.JL 



I ADDT3T, SCNCRP 



None 



Table GK1. Phase GK Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 

h 



Function 



ADDTGT 

ARGNOQ 

BABT3 

BACALQ 

BADELM 

BAFM 

BAFST 

BALOOP 

BA.LPQ 

BAMORE 

BANORM 

BAPVM 

BARECQ 

BARGFN 

BASCAN 

BASTOP 

CPSTMT 

CRSTMT 

SCANRP 

SCNCRP 



Adds data to output text. 

Checks number of statements. 

Tests for STOP marker. 

Outputs function and first bytes of argument list. 

Tests for end of argument list. 

Processes function, puts out reference and initial code bytes. 

Locates SETS list and parameter list for function. 

Processes arguments. 

Tests whether argument list is present. 

Accesses next argument in list. 

Sets STOP marker to scan argument. 

Examines pseudo-variable. 

Tests for nested function reference. 

Outputs warning message. 

Scans source text for function markers. 

Outputs argument. 

Adds closing bytes of a statement to output text. 

Adds first bytes of a statement to output text. 

Scans argument list. 

Scans argument. 
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Table GP. Phase GP Pretranslator Parameter Matching 2 



T T 

Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



Scans text for procedure and func- 
tion calls 



BS1 



ADDTT, STKINF, UNSTCK 



Examines argument lists for expres- 
sions 



BS4 



EXSCAN, Ml, M4, Ml 6, SCANFR 



Creates temporaries for scalar 
expressions and constants 



Ml 6 



ADDTT, COPYTP, MKDCEN, SETBUY 



Creates temporaries for array 
expressions 



E2 



ADDTT, CHCKB1, COPYTP, MKDCEN, 
SETBUY 



Creates temporaries for partially 
subscripted array expressions 



E3 



ADDTT, CHCKB4, COPYTP, MKDCEN, 
SETBUY 



Creates special temporaries for 
partially subscripted arrays 



EX16 



ADDTT, BS2, CHCKB4, CHECKT, C0PYT1, 
MKDCEN, STKINF,, UNSTCK, Zll, 
SETBUY, SETMT 



Checks single arguments (except 
structures) with parameter descrip- 
tions 



M4 



CHECKT. Ml 6 



Checks single structure arguments 



M5 
M21 



CHECKS, CSTTMP 



Creates temporaries for structure 
expressions 



CSTMP2, MKDCEN, CHCKBU , SETMT, 
ADDTT 



Creates temporaries for partially 
subscripted structure 



Z22 



BS2, ADDTT 



Compare the two arguments of the 
poly function and create 
temporaries if the arguments are 
not both floating and do not have 
the same scale and precision 



P0LY1, POLY2, 
P0LY3, P0LY4, 
P0LY5 



BS2 



Creates special dictionary entries 
for generic entry labels used as 
arguments 



M37 



None 
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Table GP1. Phase GP Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



Adds text to output block. 

Scans input text. 

Scans input text. 

Examines argument lists for expressions. 

End-of - program routine . 

Tests for constant argument. 

Compares the bounds of argument and parameter arrays, and creates 
new dimension tables for temporary arrays. 

Compares the bounds of argument and parameter arrays where the argu- 
ment is partially subscripted, and creates new dimension tables for 
temporary arrays. 

Creates a new dimension table from a parameter description. 

Creates new dimension tables for partially subscripted array and 
structures. 

Compares the structuring of argument and parameter structures. 

Compares the bounds of argument and parameter arrays. 

Compares structuring and data types of argument and parameter struc- 
tures. 

Compares data types of arguments and parameters. 

Creates a temporary dictionary entry from a parameter description. 

Creates a temporary dictionary entry for a partially subscripted 
array from a parameter description. 

Create temporary structure dictionary entries. 

Scans expressions for arrays and structures. 

Creates temporary arrays for partially subscripted array arguments. 

Creates a chameleon dictionary entry. 

Creates temporaries for array expressions. 

Creates temporaries for partially subscripted array expressions. 

Makes dictionary entries. 

Examines argument expressions. 

Examines single arguments with parameter descriptions. 

Compares single arguments with parameter descriptions. 

Examines structure arguments. 

Tests for structure parameter. 

Processes subscripted variable argument. 



|ADDTT 




|BS1 




|BS2 




|BS4 




|BS10 




|BS33 




| CHCKB1 


(GR) | 


| CHCKB2 


(GR) j 


| CHCKB3 


(GR) | 


J CHCKB4 


(GR) | 


| CHCKS1 


(GR) | 


| CHECKB 


(GR) | 


1 CHECKS 


(GR) | 


j CHECKT 


(GR) | 


J COPYTP 


(GR) | 


\ C0PYT1 


(GR) | 


j CSTTMP/CSTMP2 (GQ) | 


| EXSCAN 


(GQ) | 


JEX16 (GQ) | 


|EX36 (GQ) | 


|E2 (GQ) 




|E3 (GQ) 




| MKDCEN 


(GQ) | 


|M1 (GQ) 




|M2 (GQ) 




|M4 (GQ) 




|M5 (GQ) 




|M6 (GQ) 




|M10 (GQ) 1 
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Table GP1. Phase GP Routine/Subroutine Directory (cont'd) 

Function 



r t~ 

| Routine/ Subroutine | 



h 



M12 (GQ) 

M13 (GQ) 

M14 <GQ) 

M16 (GQ) 

M21 (GQ) 

M22 (GQ) 

M23 (GQ) 

M24 (GQ) 

M37 (GQ) 

M41 (GQ) 

M44 (GQ) 

POLY1, POLY2, 
P0LY3, POLY4, 
POLY5 (all in GR) 

SCANFR 

SETBUY (GQ) 

SETMT (GR) 

STKINF 
TESTC 
UNSTCK 
Zll (GR) 

Z22 (GR) 



Creates a warning message. 

Gets BUY text. 

Processes scalar argument. 

Creates temporaries for scalar expressions and constants. 

Creates temporaries for structure expressions. 

Processes data item parameter. 

Processes label parameter. 

Creates a structure temporary. 

Creates dictionary entries for generic entry labels which are argu- 
ments. 

Error routine. 

Processes dimensioned scalar argument. 

Check the arguments to the POLY function and generate code to buy 
temporaries, if the arguments are not both floating and do not have 
the same scale and precision. 

Scans for matching parentheses. 

Inserts skeletons to buy temporaries in the output text. 

Sets temporary dictionary references in MTF compiler functions for 
array and structure bounds. 

Stacks information on encountering nested functions. 

Tests for constant argument. 

Unstacks information. 

Generates text to set up the dope vectors of partially subscripted 
array temporaries. 

Generates text to assign the structure subscripts of partially sub- 
scripted structures to temporaries, and then to set up the dope 
vector for the partially subscripted structure temporary. 



Table GU. 
r __ 



Phase GU Pretranslator Check List 



"T T" 

| Main Processing] 
I Routine 



Statement or Operation Type 



Subroutines Used 



| Scans statement; checks if preced- |BSCAN 
jiftg SIGNAL statement is needed j 



(CALL, LIST, MOVE, SUOPQ 



J. + 

| Scans statements; checks if follow- JASCAN 
| ing SIGNAL statement is needed | 



■+ 

| None 



-H 



I — fc *. + 

| Provides a SIGNAL CHECK statement jCALL 
|. + 

| Searches list for checked items | SUOPQ 

L *« • :*. ■ „ » X * 



GENTST 



I CALL, LIST 
.X . 
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Table GUI. Phase GU Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



ABGNDO 

AFM 

ASC 

ASCAN 

ASCL 

ASPECL 

ASTMT 

ATEST4 

ATEST5 

ATST3 

BENTON 

BPC 

BSCAN 

BSTMT 

BTEST3 

BTEST4 

BVARNO 

CALL (GV) 

CALLBA (GV) 

CALLEX (GV) 

CALLIF (GV) 

CALSTM (GV) 

CALSYM (GV) 

GENTST 

LIST (GV) 

MOVE 

SUOPQ (GV) 



Sets iF-switch for THEN or ELSE clause. 

Signals checked items in argument list. 

Tests statement identifier and takes action if necessary. 

Scans statements; checks if following SIGNAL statement is required. 

Examines statement dictionary entry. 

Examines statement dictionary entry which is not a label. 

Housekeeping for end of statement. 

Tests for argument list. 

Tests for THEN. 

Tests for end of statement. 

Test whether argument list contains checked item. 

Processes "possible check" statement. 

Scans statement; checks if preceding SIGNAL statement is required. 

Tests whether SIGNAL statement may be needed after statement output. 

Tests for end of statement. 

Tests for argument list. 

Tests for END statement. 

Outputs SIGNAL statement for checked item. 

Tests whether SIGNAL precedes or follows statement responsible. 

Exit from subroutine CALL. 

Tests whether DO statement must be output. 

Re-outputs overwritten statement after DO statement. 

Outputs SIGNAL statement. 

Checks space in output text block. 

Updates and searches list of currently checked items. 

Moves text from source to output. 

Searches list for checked items. 
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Table HF. Phase HF Pretranslator Structure Assignment 

r t r 

Main Processing 
Routine 



Statement or Operation Type. 



Subroutines Used 



Scans text for structure assignment 
Statements, regions of nested 
statements, output list expres- 
sions, and structure references in 
input lists 



MR 



BYNAME, GENTST, LSTSCN, MOVE, 
NSTSCN, STRASS, STREXP, STRURE 



Expands structure assignments and 
expressions into a set of scalar 
assignments or expressions corres- 
ponding to the base elements of the 
structure operands. Where the base 
elements are arrays, the corres- 
ponding component expressions or 
assignments are surrounded by 
appropriately iterating DO groups 



BYNAME, STRASS, 
STREXP, STRURE 



DVCON, GENTST, LSTSCN, MOVE, 
NSTSCN, SBGN 



Scans regions of nested statements 
for structure assignments 



NSTSCN 



MOVE, NSTSCN, STRASS 



Adds text to the output string 



MOVE 
GENTST 



GENTST 



Determines space availability in an 
output text block 



MOVE 



Scans function argument and sub- 
script lists 



LSTSCN 



MOVE, NSTSCN 



Constructs DO statements and checks 
bound equivalence 



DVCON 



GENTST 



Constructs subscript lists for 
references to dimensioned structure 
base elements 



SBGN 



GENTST 
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Table HF1. Phase HF Routine/Subroutine Directory 



r ■ — t- 

| Routine/Subroutine | 



Function 



BYNAME (HG) 

BYN1 (HG) 

BYN11 (HG) 

BYN13 (HG) 

DVCON (HG) 

GENTST 

LSGET 

LSTSCN 

LS21 

LS23 

MOVE 

MR 

MRBYN 
MRTRT 
NSTSCN 
SADRAB (HG) 
SAEND (HG) 
SAOP (HG) 
SATRT (HG) 
SAX1 (HG) 
SA20 (HG) 
SA32 (HG) 
SA36 (HG) 
SA73 (HG) 
SA79 (HG) 
SBGN 

STRASS (HG) 
STREXP (HG) 
STRURE (HG) 



Expands BYNAME structure assignments. 

Searches for matching BCDs down to base elements. 

Returns to start of current output assignment statement. 

Test for matching BCDs. 

Constructs DO statements, checks bound equivalence. 

Determines space in output text block. 

Tests for GET statement. 

Scans subscript arguments and subscript lists. 

Tests for structure item in data specification. 

Tests for data-directed data specification. 

Adds text to output string. 

Scans text for structure assignment statements,, nested statements, 
output list expressions, and structure references in input lists. 

Tests for BY NAME assignment statement. 

Scans source text for structures. 

Scans regions of nested statements for structure assignments. 

Builds up stack to show pattern of structure. 

Tests whether END statements need to be output. 

Examines dictionary reference found. 

Scans structure expression or assignment. 

Tests whether item matches the stack pattern. 

Tests for start of structure expression. 

Outputs base element and replaces it in source text. 

Tests for BY NAME assignment statement. 

Outputs END statements. 

Resets scan pointer to start of expression/assignment. 

Constructs subscript lists for references to dimensioned structure 
base elements. 

Expands structure assignments into DO loops. 

Expands structure expressions. 

Expands structure references. 
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Table HK. Pretranslator Array Assignment 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



j Scans text for array and scalar 
j assignment statements 



MR 



None 



| Scans text for nested array and 
j scalar assignment statements 



MR 



NESTAT 



+- 



j Scans text for array expressions in 
j I/O lists in GET and PUT statements 
h 



MR 



ARRASS, LSTSCN 



| Expands arrays into DO loops and 
I scalar assignments; checks dimen- 
j sions and bounds 

L 



ARRASS 



FRETMP„ MDE, OPTST, SLGCH, SUBSKP 



Table HK1. Phase HK Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



Examines leftmost operand. 

Tests for multiple assignment. 

Checks pseudo- variables. 

Scans array expression. 

Expands arrays into DO loops and scalar assignments; checks dimen- 
sions and bounds. 

Generates DO loops and subscripts for array references. 

Entry point for array expressions in input lists. 

Entry point for array expressions in output lists, 

Generates a SELL statement for temporaries bought in the current 
statement. 

Scans I/O lists for possible array expressions. 

Makes a temporary dictionary entry. 

Scans text for array and scalar assignment statements, for nested 
array and scalar assignment statements, and for array expressions in 
GET and PUT statements. 

Tests for end of text. 
Scans text. 

Scans nested statements. 
Tests any given operand. 
Generates and checks subscript lists- 
Inserts subscripts in expanded array position. 
Skips a subscript or subscript list. 



AADOP 


(HL) 


AAMULA 


(HL) 


AA3 (HL) 


AETRT 


(HL) 


ARRASS 


(HL) 


ARREXP 


(HL) 


ARRIN 


(HL) 


ARROUT 


(HL) 


FRETMP 




LSTSCN 




MDE 




MR 





MREOP 
MRTRT 
NESTAT 
OPTST (HL) 
SLGCH (HL) 
SLMCG (HL) 
SUBSKP (HL) 
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Table HP. Phase HP Pretranslator iSub Defining 



T T* 

Main Processing | 
Routine 



Statement or Operation Type 



Subroutines Used 



j Scans source text for references 
| defined by iSUB 



MAS CAN 



j MOVE 



j Processes references defined by 

| iSUB 

h 



DEFSUB 



|GENTST, MOVE, SULIST, SUMOVE 



j Scans subscripts 

I 

i 



SUMOVE 

(in SULIST) 



None 



Table HP1. Phase HP Routine/Subroutine Directory 



r t- 

| Routine/Subroutine j 



Function 



DEDONE 

DEEND2 

DEFSUB 

DEGBD1 

DEGBD8 

DEGUB 

DEGUBD 

DELISQ 

DELTMP 

DEL000 

DENEXT 

DENGB 

DEN2GB 

DEOLP 

DESCLN 

DETEMQ 

DEUMQ 

GENTST (HQ) 

INIT 

MASCAN 

MOVE (HQ) 

SULIST 

SUMOVE 



Resets pointers to scan first subscript list. 

Creates and buys temporary. 

Processes references defined by iSUB. 

Tests for end of second subscript list. 

Bumps pointer to end of first-list subscript. 

Tests T2- switch when temporary assignment needed. 

Tests T2- switch when no temporary assignment needed. 

Output temporary for non-zero iSUB. 

Outputs nested temporary assignment statement for multiplier. 

Tests whether first-list multiplier is simple dictionary reference. 

Tests for end of first-list subscript expression. 

Tests whether dictionary reference is constant or integer variable. 

Outputs multiplier dictionary reference. 

Tests whether first-list subscript consists of a single iSUB. 

Tests for end of first subscript list. 

Tests whether second-list subscript is simple dictionary reference. 

Tests whether first iSUB in first-list subscript has a multiplier. 

Checks space in output text block. 

Initializes text blocks and pointers, gets scratch storage. 

Scans source text for references defined by iSUB. 

Moves text from source to output. 

Scans subscript lists. 

Scans subscripts. 
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Chart 05. Translator Logical Phase Flowchart 



***** 

*05 * 
* Al* 



*****A1 ********** 
♦STACKER IA* 
*-*-*-*-*-*-*-*-* 

* STACK * 

* OPERATORS * 

* * 
***************** 



.*B.I.F. WITH*. 

*. AGGREGATED . 

♦.ARGUMENT .* 



.X* 



*#***B2* ********* 
♦PRE-GENERIC IG* 
*-*-*_*_*_*_*_*_* 

PROCESS * 
PRE-GENERIC * 
* FUNCTIONS * 
***************** 



CI *. 


*****C2* ********* 


.* ANY *. 


♦PRE-GENERIC IL* 


.* FUNCTION *. YES 


*_*_*_*_*_*_*_*_* 






*. .* 


* FUNCTIONS * 


*. .* 


* PREPROCESSOR * 


*. .* 


***************** 


* NO 




X 




***** 




*06 * 




* Al* 


X 


* * 


*****D2 ********** 


* 


♦GENERIC IM* 




*_*-*_*_*_*_*_*_* 




* PROCESS ♦ 




* GENERIC * 




* FUNCTIONS ♦ 




***************** 




X 

***** 




♦06 * 




* Al* 
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Chart IA. Phase IA Overall Logic Diagram 



***** 

*IA * 
* Al* 



*****Al ********** 

* * 

* LOAD MODULE * 

* AND * 

* INITIALIZE * 

* * 
***************** 



* Bl *.X 



**** 
ESCAN X 

*****B1********** 

* SCAN TEXT FOR * 

* OPERATOR, * 
..X* OPERAND, OR * 

* END OF * 

* PROGRAM * 
***************** 



.* IS IT 

END OF 
*. PROGRAM 





IS 


IT 




AN 




(t 


>ERATQR 


* 




..* 




*. 


.* 




* 


YES 



***** 
*IG * 
* Al* 



ESTCAC 

*****D2 ********** 

* PLACE OPERAND * 

* IN STACK AND * 
...X* SCAN TO * 

* FOLLOWING * 

* OPERATOR * 
***************** 



EACTNC X 

«****£ 1********** 
•COMPARE WEIGHTS* 

* OF STACK AND * 
« TEXT * 

* OPERATORS * 

* * 
***************** 



Fl *. 

.* IS * 

STACK 

WEIGHT 

'. LESS 

*. .* 

*. .* 

* NO 



*****G1 ********** 

* SELECT * 

* APPROPRIATE * 

* ROUTINE TO * 

* HANOLE * 

* OPERATOR * 
***************** 



* MOVE TRIPLES * 
.* TO * 

* OUTPUT * 

* * 
***************** 



F2 *. 

.* IS *. 

.* SPECIAL 

ACTION 

*. NEEDED . 

*. .* 

*• .* 

* NO 



*****G2 ********** 

* FILL OUT * 

* TRIPLE * 

* IN STACK * 

* * 
***************** 



**** 

* * 

* Bl * 

**** 



*****G 3** ******** 

* SELECT * 

* APPROPRIATE * 

* ROUTINE TO * 

* HANOLE * 

* OPERATOR * 
***************** 



****H3********** 

* 

MOVE TRIPLFS * 

TO *. 

OUTPUT * 

* 

>*************** 
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Chart IG. Phase IG Overall Logic Diagram 



***** 

*IG * 
* Al* 



*****A1** ******** 

* * **** 

* * * * 
.X* SCAN TEXT *X....* Al * 

* * * * 

* * **** 
***************** 



.* FIRST *. 
.* BUILT-IN 
*. BUY OP 

*. PAIR 



*****C2**# ******* 



REPLACE 
BY BUY 
TRIPLE 



El *. 

..* * 
.* FUNCTION 
». TRIPLE 
*. PRIME 
*. .* 
*. .* 
* NO 



*****D2 ********** 

* * 

* * 
,X* BUMP STACK *. 

* * 

* * 
***************** 



*****£ 2 ********** 



*****B 3 ********** 

* * 

* REPLACE * 
<* BY BUYS *. 

* TRIPLE * 

* * 
***************** 



.*. 

C3 *. 

.* IS < 

DUMMY 

= TOP OF 

. STACK 

*. .< 



*****D3 ********** 

* PLACE REF * 

* FROM TOP OF * 
<* STACK IN *. 

* BUY TRIPLE * 

* * 
***************** 



.* HAS *. 

DUMMY 
BEEN USED 



*****C4********** 



***************** 



*****B 5 ********** 



***************** 



*****C5* ********* 

* * 

* ADD DUMMY * 
<* TO * 

* STACK * 

* * 
***************** 



**** 

* * 
X* Al * 

* * 
**** 





* 


**** 


DECREMENT 


* 


* * 


STACK 




..X* Al * 




* 


* * 




* 


**** 



********** 



Gl 



F2 * 

,* IS 

THERE 

A DUMMY 

.IN STACK 

*. .* 

*. •* 

* NO 



**** 

* * 

* Al * 

* * 
**** 



*. 



*****P3********** 

* INSERT * 

* ASSIGN TO * 
DUMMY IN *. 

* TEXT * 

* * 
***************** 



, X* 



*****p^****«****« 



***************** 



END 
OF 

PROGRAM .* 
•". .* 
*. .* 
* YES 



*. 



***** 

*IM * 

* A2* 

* * 
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Chart IM. Phase IM Overall Logic Diagram 



***** 

*IM * 
* A2* 



GNPLI6 

*****F1 ********** 

* FORM TABLE * 

* OF FAMILY * 

* MEMBER *X. 

* DESCRIPTIONS * 

* * 
***************** 



*****G1 ********** 

* IDENTIFY AND * 

* RESOLVE * 

* CHAMELEON * 

* ASSIGNMENTS * 

* * 
***************** 



GNL06 X 

*****H1 ********** 

* FORM ENTRY * 

* RELATING TO * 

* PARTICULAR * 

* INVOCATION * 

* * 
***************** 



*****J1********** 

* CHECK FOR * 

* ONE AND ONLY * 

* ONE AGREEMENT * 



***************** 



GNFM3 X 

*****K1 ********** 

* REPLACE * 

* ORIGINAL * 

* REFERENCE *. 

* IN TEXT * 

* * 
***************** 



*****A2 ********** 

* * 

* LOAD * 

* MODULES AND * 

* INITIALIZE * 

* * 
***************** 



* B2 *.X 



**** 
GNTRID X 

*****B2* ********* 

* SCAN FOR * 

* PROCEDURE, * 

* FUNCTION, * 
♦INVOCATION, OR * 
*END OF PROGRAM * 
*********#***«*** 



. *. 
C2 *. 

HAS *. 
END OF * 
PROGRAM BEEN 
FOUND .* 



.* 



***** 
*JK * 
* Al* 



*****D2 ********** 
♦IDENTIFY LOWEST* 

* LEVEL * 

* INVOCATION * 
♦STACKING START * 
♦OF OUTER LEVELS* 
***************** 

**** 



.♦ IS 

. FUNCTION 
*. BUILT-IN 



*****G2 ********** 

* IDENTIFY AND * 

* RESOLVE ♦ 

* CHAMELEON * 

* ASSIGNMENTS * 

* * 
***************** 



GNF027 

*****H2 ********** 

* PLACE RESULT * 
♦DESCRIPTION IN ♦ 

•X*TEXT FOLLOWING ♦ 
♦FUNCTION PRIME * 

* TRIPLE * 
***************** 



GNBIFH 

*****£4********** 

* ACCESS * 

* BUILT-IN * 
...X* FUNCTION * 

* TABLE ENTRY * 



***************** 



*****F4 ********** 

* * 
♦CHECK ARGUMENTS* 

* FOR CORRECT * 

* NUMBFR ♦ 

* * 
***************** 



GNARID X 

*****G4 ********** 

♦CHECK ARGUMENTS^ 
♦FOR VALID TYPE ♦ 

* CONVERTING IF * 

* NECESSARY ♦ 

* * 
***************** 



*****l-|4*** ******* 

* IDENTIFY AND * 

* RESOLVE ♦ 

* CHAMELEON ♦ 

* ASSIGNMENTS * 

* ♦ 
***************** 



J2 ♦. 
.♦ WAS *. 
.* FUNCTION 
. INVOCATION 
♦. NESTED . 



*****J3********** 
♦RESTORE POINTER* 
♦TO NEXT LOWEST * 
LEVEL OF * 
INVOCATION ♦ 
* * 

***************** 



.X* 



.*. 

J4 ♦. 
.* *. 

IS *. YES 


GNB08 

****«J5********** 

* SELECT * 

* RELEVANT * 


. GENERIC .* 

♦ • .♦ 

*. .* 


* MEMBER * 

* * 
***************** 



GNB16 X 

*****K4* ********* 

* PLACE RESULT * 
♦DESCRIPTION IN * 

....♦TEXT FOLLOWING *X. 
♦FUNCTION PRIME * 

* TRIPLE * 
***************** 



*****K 5* ********* 

♦ REPLACE * 

♦ ORIGINAL * 
.* REFERENCE * 

* IN TEXT * 

* * 
***************** 
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Table IA. Phase IA Translator Stacker 
r 















|Main Process 


ing| 


Statement or Operation 


Type 


| Routine 


| Subroutines Used 






_ x 


X 






t — 


T 


Scans source text 




| ESCAN 
X_ _ _ _ _ 


|None 

x _ _ _ 










Compares transfer vector 




| EACTNC 


|EC00 to ECOF 

X ~ — — - — — 






T 


T 


Stacks transfer vector 




| EACTNS 
_X 


|ES00 to ES2C 

x — — — — 






T 


T 


Generates triples 




j EGENR 
1 


|EGENR2, EGENR3, ENEWBL, ENOREP, 
JEREPL, ETRBMP 











Table IA1. Phase IA Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 
|. 



Function 



| EACTNC 
EACTNS 

ECOO to ECOF 
EGENR 
EGENR2 

EGENR 3 
ENEWBL 
ENOREP 

EREPL 

ESCAN 

ESTCAC 

ESOO to ES2C 

ETRBMP 



Compares transfer vector. 

Stacks transfer vector. 

Provide comparison action for each operator. 

Generates triples. 

Generates triple for top stack operator, with blank first operand, 
then deletes the operator from the stack. 

Generates triple with two blank operands . 

Obtains and chains new text block for output, resets output pointer. 

Deletes top stack operator, flags new top operand as the result of 
the triple just generated. 

Replaces top stack operator by its prime, to indicate end of a list 
of function arguments or subscripts. 

Scans source text. 

Places operand in stack. 

Handle stacking of operators. 

increments output point over one triple if end of text block is 
found. 
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Table IG. Phase IG Translator Pre-Generic 
r T . 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans text for BUY aggregate argu- 
ment dummies, end-of -block, and 
end-of-program triples 



GS1 



FR, BR, TRF1, GS12 



-+- 



Obtains next text block 



GS12 



None 



+- 



Transfers text to output block 



TRF1 



None 



Transfers text skeletons to output 



TRF2 



+- 



GS1, TRF1 



Stacks and unstacks information on 
encountering function and function 
triples 



FR, FRP 



None 



Inserts assignment statement for 
aggregate argument dummies 



BR 



GS1, TRF2 



Table IG1. Phase IG Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 




Inserts assignment statements for aggregate argument dummies. 

Transfers point for IGNORE triple. 

Inserts assignment into text. 

Makes new dictionary entry for temporaries. 

Processes second BUY. 

Stack and unstack information on encountering function and function* 
triples. 

Scans text for BUY aggregate argument dummies, end-of-block, end-of- 
program triples. 

Chains to next text block on encountering an end of block marker. 

Transfers text to the output block. 

Transfers text skeletons to the output block. 
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Table IL. Phase IL Translator Pre-Generic 

r t t 1 

| | Main Processing! | 

J Statement or Operation Type | Routine j Subroutines Used j 

j. + + ^ 

| Moves function table to scratch |BASROU jNone | 

j storage. II I 

l jl j. . j 



Table IM. Phase IM Translator Generic 
r 



Statement or Operation Type 


|Main Process 

| Routine 
i _ _ 


ing| 

1 

_ i _ 


Subroutines Used 


Selects function for processing 


| GNFUNC 

-+ 

JGNPLIG 
_± _ 


| GNXTRP 
+ 

| GNDRTA, 
±_ 




Selects generic procedure 


GNXTRP, GNFMID 


Selects generic Library routines; 
determines function result 


f — — — 
JGNBIFH 


| GNARID, 

| GNGNCR, 

JGNSBAR, 

+ 

JGNXTRP, 

1 


GNCBEF, GNCACI,, GNCTBI, 
GNPRSC, GNSACH, GNSAPC, 
EXPANL 


Selects chameleon dummy and inserts } GNCHAM 
it in relevant dictionary entry j 
_ _ _ j. 


EXPANL 


Controls scan of text — branches 


| EXPANL 


IARITH, 


LST1, SUBSPT, ASSIGN 


to processing routine 




1 
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Table IM1. Phase IM Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 

I" 



Function 



ARITH (10) 
ASSIGN (10) 
EXPANL (10) 
GNARID (IP) 

GNBIFH (IP) 

GNB08 (IP) 

GNB16 (IP) 

GNCACI 

GNCBEF 

GNCHAM 

GNCTBI 

GNDRTA 

GNEOB 

GNEOP 

GNFMID (IQ) 

GNFUNC 

GNF04 

GNF027 

GNFM3 (IQ) 

GNL06 (IQ) 

GNGNCR 

GNPLIG (IQ) 

GNPRSC (IP) 

GNSACH 

GNSAPC 

GNSBAR 

GNTRID 

GNXTRP 

LST1 (10) 

SUBSPT (10) 



Calculates type of result of arithmetic operation (except **) . 

Returns to calling phase with result. 

Controls scan of text — branches to processing routine. 

Identifies argument of built-in function and converts it to valid 
type, if possible. 

Selects generic Library routine; determines function result. 

Selects relevant family member. 

Sets up result type of a built-in function. 

Checks and converts a decimal integer. 

Standardizes argument code byte to a form for generic selection. 

Selects chameleon dummy and inserts it in relevant dictionary entry. 

Converts from decimal to binary. 

Analyzes dictionary type. 

Processes end-of-block marker. 

Processes end-of -program marker. 

Identifies family member. 

Selects function for processing. 

Checks for nested function situation. 

Sets up result type of a PL/I function. 

Replaces original reference in text. 

Forms entry relating to particular invocation. 

General conversion routine. 

Forms table of family member descriptions. 

Selects highest mode, scale and precision of variable argument list. 

Performs special argument check. 

Calculates scale and precision of a function result. 

Handles a subscripted argument. 

Scans source text. 

Gets next triple. 

Calculates type and length of result of string operation. 

Adds type of array to stack. 
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Chart 06. Aggregates Logical Phase Flowchart 



***** 

*06 * 
* Al* 



*****A1********** 
♦STRUCTURE JK* 
*-*-*-*-*-*-*-*-* 

* STRUCTURE * 

* PROCESSOR * 
♦SCANS DATA CHNS* 
***************** 



Bl* **. 

*, 
ANY *. 
DEFINED 

ITEMS .* 
. .* 
*. .* 
* NO 


YES 


*****B2********** 
♦DEFINED JP^ 
*_*_*_*_*_*_*_*_* 

* DEFINEO CHECK * 

* * 
***************** 


X 
***** 
*07 * 
* Al* 




X 
***** 
♦07 ♦ 
* Al* 
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Chart JK, Phase JK Overall Logic Diagram 



* CHAINS FOR 









X 








*JP 


* NO 


* Al 



.X* MAKE A DVD * 
***************** 



**C2****** 
GET BASE 



HAS 

. SE BE_ 
.PROCESSED.* 



.X*. BASE BEEN 



♦.structure.* 
"*"no 



PROCST 

.X*! ADJUSTABLE 
NTS 

'yes 



ANY 
- JSTAB__ 
EXTENTS .* 



* F2 *.X. 



****D 3 ********** 

* 

DEFINED ITEM *. 

* 
imtittittttttt 



* 


* 


* IS * 

RDV 
REQUIRED 

? 
*. .* 


* 






* YES 

*** 






* 








..X* F3 

* 






*** 


PROCDT 


H?" '*. 
* * 














ADJUSTABLE 





STRUCTURE 



*****F3******* 

* 
X* MAKE AN RDV 



****G3******** 

MAKE DVD 
************** 



LI BR ART 
CALLING 
SEQUENCE 



**D<,****«* 
GENERATE 
CODE T3 



DEFINED ITEM 



SFTOVSi SETDVA **** 
*****E 5 ********* 



*****G4****** 
* 

* MAKE 

* RDV AND 

* CHAIN 



Jl *. 


*****J2****** 




* 


*. YES 




FIXED .*.... 


* MAP ARRAY 


. SCALAR .* 


* 


*. .* 


* 


*. .* X 


************* 


* NO **** 




* * 




* F4 * 




* * 




**** 


* 






X 


.*. 


**K1**** ****** 


K2 *. 


* 


.* * 




.* 




X*. AUTO 



*************** 



*****K3********** 

* GENERATE * 

* CO&E TO * 
X* RELOCATE * 

* BY VDA * 

* ACCUMULATOR * 
***************** 



**************** 



* 






* 


C5 *.X. 




* 


* . 




* 


It** 




ADRDV 


X 




*****K 5 ********** 




GENERATE 






CODE TO 


* 


* 


SET ITEM 


* 


* 


ADDRESS IN 


* 



***************** 



**** 

* * 

* Al * 



***• 

* * 

* Al * 

**** 
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Chart JP. Phase JP Overall Logic Diagram 



..X* DEFINED CHAIN *. 
***************** 



* Al ♦ 

* * 
**♦♦ 



.♦CORRESPOND-*. 

ENCE 

♦.DEFINING .* 



* CI * 

* * 
♦*♦* 



**♦* 
* B3 * 



JP543 
YES .* 



BASE 

CODED 

ARITH 



****f\******* 

* ERROR 

* 
************* 



.STRCMP 


• *. 






A3 *. 






* DOES *. 


• YES 




DEFINED 


X...* 




STRUCTURING 




* 


MATCH . 
♦.BASE .* 






*. .* 


**** 







.X«ITEM STRUCTURE.*. 



****A4********* 

* I 

* ERROR < 

* j 
*************** 



JP541 

B* *. 
.* ARE *. 
.* DEFINED *. 
...X*.ITEM AND BASE.' 



X *.ITEN A SUBSET.* 



DEFINEO 

M A SUBS... 

OF BASE .* 



NO 



B5 



**** 

* ***** 

* B* * * 



.*IS BASE* 

DEFINEO 

ITEM 

. ADJUST- 

*.ABLE .* 

*. .* 

* YES 



.X* 



PACKED 
*. .* 
*. .* 
* NO 



DEFINED *. YES 



ITEM CODED 



.•.ITEM VARYING 



.* DEFINEO 
►.ITEM DIMENS- 
*. IONED . 



*E3******« 
ERROR 



.X*. A STRUCTURE .* X* 



****D5******** 
* ERROR 
************** 



.* ARE *. 

DEFINEO *. 

ITEM AND 

•BASE SAME.* 

*. TYPES.* 

*. .* 



.* ARE *. 

••STRUCT ELE-*. 

•X*.MENTS STRINGS. 

*. OF BASE .* 

♦.TYPE .* 



***G1********* 
* 
ERROR * 
************** 



".ITEM DIMENS- 



****G4********* 

♦ * 

♦ ERROR ♦ 

♦ * 
****♦•*****«*** 



•A STRUCTURE* 



ERROR ACTION IS TO 



TERMINATE THE COMPILATION 



.*. 

J2 *. 

.* IS *. 

* BASE ♦ 

DIMENSIONED 



**H,2***** 
ERROR 



SUBSCRIPTED 



MS BASE* 

" DEFI ~~ 

ITEM 

HDJUS. 

♦.ABLE .♦ 



♦OR DEFINEO ♦. 

ITEM 
*. ADJUST- .♦ 



♦*** J 5* ******** 

* 

ERROR * 

*************** 



LENGTH 
************* 
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Table JK. Phase JK Aggregates Structure Processor 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans AUTOMATIC, STATIC, and 
CONTROLLED chains 



SCNCHN 



ADRDV, CHKDEF. MKDVD, MKRDV, 
PROCDT, PROCST, SETBRF, TERMWS 



Processes DEFINED items 



CHKDEF 



CMPIL1, INOBJ, PROCDT, PROCST, 
STBASE 



Processes structures (calculates 
offsets, multipliers, sizes, 
alignments and padding; generates 
object code) 



PROCST 



CMPIL1, INOBJ, ELSIZ 



■H 



Processes arrays (calculates mul- 
tipliers and generates object code 



PROCDT 



CMPIL1, INOBJ, LOADCN, SP5U 



H 



Calculates storage offsets for 
adjustable items in structures 



PS25 



CMPIL1 



Calculates storage offsets for 
adjustable arrays 



ALVACA 



CMPIL1 



Calculates storage offsets for 
adjustable strings 



ALVACI 



CMPIL1 



Generates code to initialize string 
dope vectors for arrays of varying 
strings in structures 



SVARY 



CMPIL1, INOBJ, IPDV, VOBJC 



Generates code to initialize string 
dope vectors for varying,, non- 
structured arrays 



VOBJC 



CMPIL1, INOBJ, IPDV 



Generates code to calculate the 
starting address of storage for 
overlay defined items 



STBASE 



CMPIL1 



Adds text skeletons to the output 
stream 



CMP I LI 



None 



+- 



Makes dictionary entries for dope 
vector descriptions 



MKDVD 



ELSIZ 



-H 



Makes dictionary entries for record 
description vectors 



MKRDV 



MKCNST, CMPIL1 



Generates code to set the address 
in a record description vector at 
object time 



ADRDV 



INOBJ, CMP I LI 



Calculates the length and alignment 
of scalar data items 



ELSIZ 



None 
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Table JK1. Phase JK Routine/Subroutine Directory 



r T" 

| Routine/Subroutine) 

I" 



Function 



ADRDV (JL) 
ALVACA (JL) 
ALVACI (JL) 
CHKDEF (JM) 
CMPIL1 (JL) 
ELSIZ 
INOBJ (JL) 
IPDV (JM) 
LOADCN (JL) 

MKDVD 

MKRDV (JM) 

NXTREF/NXTRF1 

PROCDT (JM) 

PROCST 

PS25 

CHNSCN (JL) 

SETBRF (JL) 

SETDVS 

SP54 

STBASE (JM) 

SVARY (JL) 

TERMWS (JL) 
VOBJC (JL) 



(JM) 



Generates addressing code for AUTOMATIC RDVs. 

Calculates storage offsets for adjustable arrays. 

Calculates storage offsets for adjustable strings. 

Processes DEFINED items. 

Adds text skeletons to the output stream. 

Determines size of storage required for structure base elements. 

Initializes object code statements. 

Generates code to set up primary dope vectors. 

Generates object code to load object registers with constants known 
at compile time. 

Makes dictionary entries for DVDs. 
Makes dictionary entries for RDVs. 
Gets the next structure base reference- 
Processes arrays. 
Processes structures. 

Calculates storage offsets for adjustable items in structures. 
Scans AUTOMATIC, STATIC, and CONTROLLED chains. 
Sets the reference to the current entry type 1. 

Sets the dynamic dope vector size for non-adjustable structures. 
Calculates base element multiples. 

Generates code to initialize starting address storage for overlay 
defined items. 

Generates code to initialize string dope vectors for arrays of 
varying strings in structures. 

Terminates object code. 

Generates code to initialize string dope vectors for varying, non- 
structured arrays. 
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Table JP. 
r 



Phase JP Translator Defined Check 



'T T" 

| Main Processing | 
| Routine | 



I" 



Statement or Operation Type 



Subroutines Used 



Scans DEFINED chain; checks 
validity 



IEMJP 



JGETCLS,, GETLTH., STRCMP 



| Checks that two structure descrip- | STRCMP 
jtions are the same and that they | 
jmay be validly overlaid ] 

L ; X 



4 

| None 

I 

I 
.x 



Table JP1. Phase JP Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



GETCLS 

GETLTH 

IEMJP 

JP8 

JP20 

JP200 

JP540 

JP541 

JP542 

JP543 

STRCMP 



Analyzes structure descriptions, and checks that all elements are of 
the same defining class. 

Obtains length of string or numeric field from associated dictionary 
ent ry . 

Controlling scan of DEFINED chain; checks validity. 

Tests whether defined item is packed. 

Tests whether base defined item is adjustable. 

Tests whether item is a structure. 

Tests whether defined item is coded arithmetic. 

Compares base and defined item. 

Tests whether defined item is dimensioned. 

Tests whether base code is arithmetic. 

Compares structure descriptions. 



Table JZ. Module JZ Compiler Control 

r t t 1 

| | Main Processing! | 

J Function | Routine j Routines Used j 

j. x x ^ 

| Reconstructs the phase directory | IEMJZ | RLSCTL, ZUPL* ZEND | 

J for the second half of the compiler! j j 

III I 

I Entry to OS/360 ; BLDL | | j 

L X X J 
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Chart 07. Pseudo-Code Logical Phase Flowchart 



***** 

♦07 * 
* Al* 



*****A1 ********** 
*SCAN LA* 

*-*-*-*-*-*-*-*-* 

* UTILITY * 

* SCANNING * 

* PHASE * 
***************** 



-*_*-*-*- 



K* CONSTRUCT * 
* TRIPLES FOR * 
♦DYNAMIC INITIAL* 
***************** 



• X 

X 
.*. 
CI *. *****C2********** 

•* *. *INITIAL LO* 

.* STATIC *. YES *_*_*_*_*-*_*_*_* 

INITIAL .* X* CONSTRUCT * 

*. .* * TRIPLES FOR * 

*. .* *STATIC INITIAL * 

*. .* ***************** 

* NO 



*. STATEMENTS 
*. 

♦. .* 



*****£!********** 

*EXPN EVAL LRtLS* 
*_*_*_*_*_*_*_*_* 

♦CONVERT EXPR- * 
♦ESSION TRIPLES * 
*TO PSEUDO-CODE * 
***************** 



*****P1********** 
♦STRING UTILS LV* 
*-*-*-*-*-*-*-*-* 

* PROVIDE * 
♦STRING HANDLING* 

* FACILITIES * 
***************** 



.X. 



.*. 

HI *. 

.* ANY *. 

.♦PSEUDO-VARS*. YES 

*. OR MULTIPLE .*.... 

*. ASSIGNS .* 



*. .* 



.*. 

Jl ♦. 

.* ANY *. 

IN-LINE *. YES 
FUNCTIONS .*.... 



*. •* 

♦. .♦ 
* NO 



*****D2 ********** 
*DO EXPANSION LG* 
#-*-*-*-*-*-*-*-* 
<* EXPAND * 

* 00 LOOPS * 

* * 
***************** 



♦*** 






* 






Gl *.X 

* 






**** X 




Gl 

.* Ar 

.* STR 
. EXPRE 


*. 
JY *. 
NG * 
5SI0NS 


YES 



•♦♦♦♦GZ ********** 
♦STRING HANDL LW* 
*- *- *- *_ *_*_*_*_* 

<* CONVERT * 
♦STRING TRIPLES * 
* * 

***************** 



. X* 



. X* 



*****H2 ♦♦♦****♦♦* 
*PSEUD0-VARS MB* 
♦-*-*-*-*-*-*—*—* 
CONSTRUCT ♦ 
♦PSEUDO-CODE FOR* 
♦PSEUDO-VARIABLS* 
***************** 

! **** 



**** 

*****j2********** 
♦ IN-LNE MG.MI.MK* 

CONSTRUCT * 
♦PSEUDO-CODE FOR* 
*IN-LINE FUNCTNS* 
***************** 



.* ANY *. 
.* GENERIC *. YES 
*. ARGUMENTS .*.... 



.* ANY *. 
.* FUNCTION 
'. REFERENCES 



PR3CFSS 

GENE-PIC 

ENTRY NAVIES 

jc************* 



*****f}4.********** 

*CALLS C FMS MM* 
*_*_*-*_*_*_*_*_* 

.X*PPOCESS CALL * 
*£. FN PROCEDURE * 
* INVOCATIONS * 
***************** 



*****C4********** 
♦STRING LV* 
*-*-*-*-*-*-*-*-* 

* PROVIDE * 
♦STRING HANDLING* 

* FACILITIES * 
***************** 



♦REORDER STRING. 

*. BUYING .♦ 

*.CODE .* 



<* REORDER * 

* BUY AND SELL * 

* STATEMENTS * 
***************** 



*****£ 4* ********* 
♦SUBSCRIPTS MS* 
*-*-*-*-*-*-*-*-* 
,X^ CONSTRUCT * 
* PSEUDO-CODE * 
♦FOR SUBSCRIPTS * 
***************** 



*****F3 ********** 
*BR,ON,RETNS NA* 
*-*-*-*-*_*_*-*_* 
♦ MAKE PSEUDO- ♦ 
♦CODE FOR BRAN- ♦ 
♦CHES, RETURN, ETC^ 
***************** 



.* DISPLAY *. YES 
. OR DELAY .*.... 

*. STATEMENT.* 



*****G4* ********* 
*0/S SERVICES NG* 
*_*-*-*_*-*-*-*_* 
.X* MAKE LIB CALL * 
*SEQS FOR DELAY * 
*£ DISPLAY STATS* 
***************** 



.* 
. .* 
* NO 



*****H4 ********** 
*RECORD-I/0 NJ* 
*-*-*-*-*-*-*-*-* 
.X* MAKE LIB CALL * 
♦SEQS FOR STREAM* 
* ORIENTED I/O * 
***************** 



.* ANY *. 
.♦STREAM-l/O,*. YES 
♦. OPEN, OR ...... 

♦. CLOSE .* 



*****J4* ********* 

♦STREAM-I/O NM* 
*-*-*-*-*-*-*-*-* 
.X* MAKE LIB CALL * 
*SEOS FOR STREAM* 
* ORIENTED I/O * 
***************** 



.* ANY ♦. 
.* DATA OR *. YES 
*. FORMAT .*.... 
*. LISTS .* 



*****K4********** 
♦DATA FORM NT.NU* 
*-♦-*-♦-*-*-*-*-* 
.X* MAKE LIB CALL ♦ 
♦SEQS FOR DATA/ ♦ 
♦ FORMAT LISTS * 
***************** 



*****B5* ********* 
♦COMPILER PNS OB* 
*-*-*-*-*-*-*-*-* 
* PROCESS * 
♦COMPILER <=NS £ * 
♦PSEUDO-VARIABLS* 
***************** 



*****C5***^****** 
♦ASSIGNMENT OE* 
*_*_*_*_*_*_*_*_* 

* CONSTRUCT * 
♦PSEUDO-CODE "=0R* 

* ASSIGNMENTS * 
***************** 



*****Q5* ********* 

* RELEASE * 

* UTILITIES, * 

* IEMLA, AND * 

* IEMLV * 

* * 
***************** 



*****E5* ********* 
♦LIBRARY CALL OG* 
*-*-*-*-*-*-*-*-* 

* GENERATE * 
♦LIBRARY CALLING* 

* SEQUENCES * 
***************** 



*****F 5 ********** 

♦CONSTANTS OS* 
*_*-*_*_*_*_*_*_* 
♦CONVERT CONSTS* 

* TO REQUIRFD * 

* INTERNAL FORM * 
***************** 



***** 
*08 * 
* Al* 
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Chart LA. Phase LA Overall Logic Diagram 



***** 

*LA * 
* Al* 



*****A1********** 

* INITIALIZE * 
♦FLAGS, POINTERS* 

* AND LOAD * 
*, ADDRESS * 

* * 
***************** 



*****gl ********** 

* * 

* TRANSFER TO * 

* APPROPRIATE * 

* SCAN ROUTINE * 

* * 
***************** 



THESE ROUTINES ARE SCAN 
ROUTINES CALLED BY 
COMPILER PHASES IEMLB 
THROUGH IEMOE. 



MV1, MV2 
MV4.MV4A 

*****B3 ********** 

* MOVE SOURCE * 

* TEXT FROM * 

* INPUT BLOCK *. 
*TO OUTPUT BLOCK* 



***************** 



****B4********* 
► * 

* RETURN * 

*************** 



***** 
*LB * 
* Al* 



i, MVJA 

*****C 3 ********** 

* * 

* MOVE USER * 
♦GENERATED TEXT *. 
♦TO OUTPUT BLOCK* 

* * 
***************** 



*****01 ********** 

* * 

* MOVE CURRENT * 

* TRIPLE TO *. 

* OUTPUT * 

* * 
***************** 



***************** 



*****03 ********** 

* * 

* SCAN FOR * 
<* RFQUESTEO *. 

* TRIPLE * 

* * 
***************** 



****r>4* ******** 

» * 

» RETURN « 

* * 

*************** 



* MARK CURRENT < 

* INPUT BLOCK * 

* WANTED « 

* 1 
**************** 4 



*****£2********** 

* * 

* ACCFSS * 
<* NEXT *. 

* TRIPLE * 

* * 
***************** 



****E4* ******** 

* * 

* RETURN * 

* * 
*************** 



SC5.SC7 

*****F1**»* ****** 

* MARK CURRENT * 

* INPUT BLOCK *. 

* NOT WANTED * 

* * 
***************** 



*#***p 3 ********** 



***************** 



3, SLJ.UA 

*****ei********** 

* * 

* MARK CURRENT * 

* INPUT BLOCK *. 

* WANTED * 

* * 
***************** 



*****52 ********** 

* UPDATE INPUT » 

* POINTER TO * 
.X*REGISTER STATUS' 

* BYTFS * 



******* 



Cc******* 



G3 *. 
.* *. 
* WAS 1 

ENTRY AT 

*. SC10A .« 

*. .* 

*. .* 

* YES 



*****G4********** 

* MOVE THE * 
♦CODE DELIMITED * 

.X* BY JMP TRIPLF *. 
*TO OUTPUT BLOCK* 

* * 
***************** 



****G5*** ****** 
» * 

* RETURN * 

* * 
*************** 



*****H1 ********** 

* * 

* MARK CURRENT * 

* INPUT BLOCK *. 

* NOT WANTED * 

* * 
***************** 



SCIO 

***** j X**** ****** 

* CONVERT THE * 

* SYMBOLIC * 

* INPUT POINTER *. 

* TO ABSOLUTE * 

* * 
***************** 



*****j 2* ********* 



***************** 



****J3********* 
> * 

* RETURN * 

* * 
*************** 
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Chart LB. Phase LB Overall Logic Diagram 



***** 

*LB * 
* A2* 



SCAN X 

*****A 2 ********** 

* SCAN TEXT FOR * 

* PROC, BEGIN, * 
X* ALLOC, EOP *X. 

* TRIPLES * 

* * 
***************** 



.* WAS *. 

►. EOP TRIPLE .*. 

*. FOUND .* 



*****E1 ********** 

* MAIN * 
*-*-*-*-*-*-*-*-* 

* PROCESS 

* ANY INITIAL 

* ATTRIBUTE * 
***************** 



***************** 



*****02 ********** 



***************** 



*X. 



.* MAS * 
YES .* ALLOCATE 
....*. TRIPLE 
*. FOUND 



***** 
*LD * 
* Al* 



* SCAN DOWN * 
<* AUTOMATIC *. 

* CHAIN * 

* * 
***************** 



. X* 



YES 
. *. 

04 *. 
.* *. 

END OF 
AUTOMATIC 
. CHAIN . 
*. .* 



*****E4* ********* 

* MAIN * 
*-*-*-*-*-*-*-*-* 

PROCESS * 
ANY INITIAL * 

* ATTRIBUTE * 
***************** 



****G1********* 
► ENTRY * 

* TO MAIN * 

* * 
*************** 



IS 
INITIAL 
FLAG ON 



****G3********* 

* * 

* RETURN * 
k * 

*************** 



IS 

ITEM AN 
ARRAY 



* DELETE * 
(* INITIAL * 

* ATTRIBUTE * 

* * 
***************** 



kj2********** 



***************** 



CNSTWK X 

*****K2* ********* 

* OUTPUT * 

* SN2 AND * 

* ASSIGNMENT *. 

* TRIPLES * 

* * 
***************** 



****K3********* 
* * 

K RETURN * 
K * 

*************** 
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Chart LD. Phase LD Overall Logic Diagram 



***** 

*LD * 
* AH 



STATIC X 

*****A1 ********** 

* SCAN STATIC * 

* CHAIN FOR * 
...X* INITIAL * 

* ITEMS * 

* * 
***************** 



.ST0006 X 

*****B1**** ****** 

* LOCATE * 

* INITIAL * 

* VALUE * 

* STRING * 

* * 
***************** 



DATA 
ITEM AN 
. ARRAY 
*. .' 



GAA1 

*****C2 ********** 

* SCAN * 

* INITIAL * 
...X* VALUE *. 

* STRING * 

* * 
***************** 



► IS 
ITEM A 

REP 
FACTOR 



CNSTHK 

*****C 4 ********* 

* OBTAIN 

* CORRECT ENTRY 
...X* ON 

* CONSTANT 

* CHAIN 
**************** 



•CNSTWK X 

*****D1 ********** 

* OBTAIN * 

* CORRECT ENTRY * 

* ON * 

* CONSTANT * 

* CHAIN * 
***************** 



* CONVERT TO * 

* FULL WORD * 

* BINARY * 

* * 
***************** 



GAC3 X 

*****04********** 

* MAKE SL3T * 

* FOR * 

* CONVERTED * 

* CONSTANT * 

* * 
***************** 



.ST9999 X 

*****E1********** 

* MAKE SLOT * 

* FOR * 

* CONVERTED * 

* CONSTANT * 

* * 
***************** 



*****£: 3********** 

* * 

* SET UP * 

* TABLE OF *> 

* ENTRIES * 

* * 
***************** 



.ST0088 X 

*****F i ********** 

* RESET * 

* INITIAL * 

* VALUE * 

* ENTRY * 

* * 
***************** 



ST0006 X 

*****F3********** 

* POINT * 

* INITIAL * 

* VALUE SLOT * 

* TO TABLE * 

* * 
***************** 



X 

***** 

*LG * 

* Al* 

* * 
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***** 

*LG * 
* Al* 



LG0000 X 

*****A1********** 
♦INITIALIZATION * 

* GET SCRATCH * 

* STORAGE FOR * 

* -DO BLOCKS * 

* * 
***************** 



LGC002 X 

*****B1 ********** 

* LA * 
*-*-*-*-*-*-*-*-* 
..X* USE SCI TO * 
. *LOOK FOR TRIPLE* 
. * OF INTEREST * 
. a**************** 
**** 



* Bl * 

* * 
**** 



A3 



*. 



HI 



*. 



.* TO'.BY', *. YES 
k. OR DO .*.... 

*. EQUALS .« 
*. .* 
*. .* 
* NO 



WHILE' 

'*. .** 
*. .* 
* NO 



***************** 



LG0013 

*****C 2 ********** 

* PUSH DOWN DO * 

* STACK AND # 
...X* INITIALIZE * 

* NEW STACK * 

* ENTRY * 
***************** 

\ **** 

. * * 
..X* Bl * 
* * 
**** 
LG0011 

*****D2 ********** 

* PUSH DOWN DO * 

* STACK AND * 
...X* INITIALIZE *. 

* NEW STACK * 

* ENTRY * 
***************** 



LG0012 

**#**E2********** 

* GENERATE LOOP * 

* CLOSING CODE * 

. ..X* AND POP UP *. 

* DO STACK * 



.X* 



*****D 3 ********** 

* SCAN CONTROL * 

* VARIABLE TEXT * 
AND SET UP *. 
SKELETON IN * 
STACK ENTRY * 

***************** 



* * 

* Bl * 
I * 

**** 



***************** 



LG0015 

*****F2********** 

* ALLOCATE * 

* SYMBOLIC REG * 

. ..X* FOR LOOP *. 

* CLOSE * 



***************** 



* ANALYZE THE * 
.X* EXPRESSION IN * 

* ENSUING TEXT * 

* * 
***************** 



LG0024 

*****H2 ********** 

* GENERATE TEXT * 

* TO ASSIGN * 
...X* PRECEDING *. 

* EXPRESSION TO * 

* A TEMPORARY * 
***************** 



* GENERATE TEST * 
.X* CODE FROM DO *. 

* STACK ENTRY * 

* * 
***************** 



***** 
*LS * 
* Al* 



.* *. * * 

.* END OF *. YES * GENERATE TEST * 

,X*ITERATIVE PART.* X* AND *. 

*. OF THIS .* * COUNT CODE * 

*.SPEC .* * * 

*. .* ***************** 

* NO 



.* *. YES 

► . WHILE .*.... 
*. .» 



LG0021 

*****J2* ********* 
♦SAVE LOOP ENTRY* 

* AND NEXT * 
...X* SPECIFICATION * 

* LABEL REE IN ♦ 

* DO STACK * 
***************** 



* A3 * 

* * 
**** 
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***** 

♦ LS * 

* Al* 
* * 



***** A 1 ********** 

* INITIALIZE * 

* WORKSPACE * 

* AND TEMPORARY * 

* DESCRIPTION * 

* STACK * 
***************** 

**** 



**** 
3 X 

*****B1 ********** 

* LA * 
*-*_*_*-*_*-*_*_* 

* USE SCI TO * 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 



.*. 

CI ♦ . 

*. 
END OF *• YES 


EOP2 
** 

* 
* 


***C2******* 

MARK NEXT 

PHASES IF 

WANTED AND 

RELEASE LS 

************ 


*** 




.* 
.* 

*• .* 
* NO 


* 
* 
** 


* 

* 
*** 


X 
***** 

*LV * 
* Al* 



01 *. 
.* *. 

JO .*EXPRESSION *. 
..». TYPE TRIPLE .* 



* SET UP * 

* OPERAND * 

* DESCRIPTIONS * 

* * 
***************** 



*****F1 ********** 

* * 

* DETERMINE * 
♦CHARACTERISTICS* 

* OF RESULT * 

* * 
***************** 



.* STRING 
TYPE 
*. RESULT 



STRING X 

*****H1 ********** 

* OUTPUT * 

* NECESSARY * 
..X* TRIPLES ANO * 

* TEMP * 

* DESCRIPTIONS * 
***************** 



RELSTK X 

*****jl********** 

* RELEASE * 

* TEMPS USED * 

* FROM TEMP * 

* STACK * 

* * 
***************** 



.* OPERAND *. f\ 
,.X*. CONVERSION .*. 
♦.REOUIRED .* 



**** 
3 * * 
...X* F3 * 



.*• 






CONST 


E2 *. 






*****£ 3********** 


.* *. 






* CREATE * 


IS 


*. 


YES 


* DICTIONARY * 




*' 






A CONSTANT 




* TARGET * 


*. .* 






* CONSTANT * 


*. .* 






***************** 


* NO 






**** I 

* * 

* F3 *.X. 

* * 
**** X 


X 






ARITH2 .*. 



CONVT 

*****F2 ********** 

* CALCULATE * 

* BASE. SCALE * 

* MODE. PREC, * 

* OF TARGET * 

* * 
***************** 



*****G2 ********** 

* SET UP TO * 

* GET OBJECT * 

* TIME * 

* WORKSPACE * 

* FOR TARGET * 
***************** 



ASSIGN X 

*****I-I2 ********** 

* GENERATE * 

* ASSIGN TRIPLE * 

* OF SOURCE * 

* TO TARGET * 

* * 
***************** 



*****j2* ********* 

* REVERSE * 

* SOURCE AND * 

* TARGET IN *. 

* TEMP STACK * 

* IF NECESSARY * 
***************** 



,.X*. FIXED POINT . 
♦.OPERANDS .* 



LBFL1 

*****p 4* ********* 

* GENERATE * 

* PSEUDO-CODE * 
...X* FOR FLOAT * 

* EXPRESSION * 

* * 
***************** 



*****G3 ********** 

* * 

* CALCULATE * 

* SHIFT FOR * 

* ALIGNMENT * 

* * 
***************** 



FXC1 

*****H4 ********** 

♦ GENERATE * 

* PSEUDO-CODE * 
...X* FOR FIXED * 

* BINARY * 

♦ EXPRESSION * 
***************** 



ASSIGN X 

*****j3********** 

* GENERATE * 

* ASSIGN TRIPLE * 

* FOR DECIMAL * 

* SHIFT IF * 

* NEEDED * 
***************** 



*****K1 ********** 

* ADD ANY * 

* RESULT TEMPS * 

* TO TEMP * 

* STACK * 

* * 
***************** 



*****K3********** 

* GENERATE * 

* PSEUDO-CODE * 

* FOR FIXED *. 

* DECIMAL * 

* EXPRESSION * 
***************** 



*****K4********** 

* COMMON ♦ 

* WORKSPACE FOR * 
<♦ TEMPS USED * 

* IF POSSIBLE ♦ 

* * 
***************** 
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***** 

*LV * 
* Al* 



STUTO X 

*****Ai ********** 

* INITIALIZE * 

* COMMON * 

* TRANSFER * 

* VECTORS * 

* * 
***************** 



***** 
*LW * 
* Al* 



****A2 ********* 
* ZSTUT1 « 

K * 

*************** 



STRUT1 .*. 

B2 *. 

.* IS *. 

.* SOURCE *. 

*. OPERAND A . 

♦.CONSTANT .* 

*. 



NOTE: 

THESE TWO ROUTINES ARE 
THE STRING UTILITIES. 
THEY ARE CALLED BY 
COMPILER PHASES IEMLW 
THROUGH IEMOG. 



****A********** 

* * 

* ZSTUT2 * 

* * 
*************** 



. .* 
* NO 



LSUT17 .*. 

C2 *. 

.♦RESULT *. 

.* STRING *. YES 

♦. LENGTH .*.... 

*. > 256 .* 

*. .* 



* CONSTRUCT * 

* ASSIGN * 

* TRIPLE ♦ 

* * 
***************** 



*****B 3* ********* 
CREATE NEW ♦ 
DICTIONARY ♦ 
ENTRY FOR ♦. 

* CONSTANT * 

* * 
***************** 



.X* 



*****C3********** 

* ♦ 

* CONSTRUCT ♦ 
<* BUY-ASSIGN * 

* TRIPLE * 

* * 
***************** 



LSUT26 X 

***** £2 ********** 

* GENERATE ♦ 

* ASSIGN AND * 

* ANY TMPO ♦ 

* TRIPLES * 

* * 
***************** 



122 .*. 

F2 *. 
.♦STRING *. 
.*f)OPE VECTOR*. YES 
*. RESULT .*.... 
♦.REQUIRED .* 



STRUT2 

*****B4* ********* 
♦DETERMINE TYPF ♦ 
*OF STRING DOPE * 

* VECTOR * 

* REQUIRED * 

* * 
***************** 



*****£ 4* ********* 

* GENERATE ♦ 

* PSEUDO-CODE ♦ 

* TO INITIAL IZF * 

* DOPE VECTOR * 

* IF REQUIRED * 
***************** 



*****D4 ********** 

♦ SET DOPE ♦ 

♦ VECTOR ♦ 

♦ REQUIRED BIT ♦ 

♦ ON IN DICT ♦ 

♦ FOR STRING ♦ 
***************** 



*****£&********** 

* INCREMENT * 

* RETURN ADDR * 

* DEPENDING * 

* ON TYPE OF * 

* DOPE VECTOR ♦ 
***************** 



****F ********** 

► « 

► RETURN * 
¥ * 

*************** 



*****G2 ********** 

* RETURN ♦ 

* DESCRIPTION * 

* OF RESULT * 

* STRING * 

* * 
***************** 



****H2 ********* 
k * 

* RETURN * 

¥ * 

*************** 
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***** 

*LW * 

* Al* 

* * 



INITIALIZE 



***************** 



** 


***gi********* 


* 


* 




LA 


* 


*- 


*-*- 


*-*-*-*-*- 


-* 


..X* 


USf- 


SCI TO 


* 


. *LOOK 


FOR TRIPLE* 


* 


OF 


INTEREST 


* 


***************** 


**#* 








* 










Bl * 










* 










**** 











* SET UP * 

* OPERAND * 

* DESCRIPTIONS * 

* * 
***************** 



*****F1********** 

* * 

* DETERMINE * 
♦CHARACTERISTICS* 

* OF RESULT * 

* * 
***************** 



.* OPERAND 
. CONVERSION 
♦.REQUIRED . 
♦ . .♦ 



*****H1* ********* 
♦ZSTUT1 LV* 
*-*-*-*-*-*-*-*-* 
♦GENERATE PSEUDO* 
♦-CODE TO CONV- * 
* ERT TO STRING * 
***************** 



Jl *. 
■ * ♦. 
STRING ' 
LENGTH 
. KNOWN .' 
*. .* 
*• .♦ 
* YES 



>***C2********** 



MARK 
PHASE MP 
IF WANTE 



>*******< 



D * 

* 

***** 



***** 
*MB * 
* Al* 



*****£ 2 ******** 

* SET FLAGS 

* ETC. FOR 

* OTHER TRIPLE 

* TYPES 

*************** 



*****F 2 ********** 

* * 

* MOVE TRIPLE * 

* TO * 

* OUTPUT * 



***************** 



*****H2 ********** 

* * 

* CREATE MASK * 

* FOR * 

* BOOL FUNCTION * 

* * 
***************** 







**** 








* * 




. 




♦ K2 *.X 








♦ ♦ 




X 




**** 




.*. 




LIB1 X 


Kl *. 




*****K2 ********** 


.♦ ♦ 




♦ GENERATE * 


.♦ LENGTH 


♦. YES 


* PSEUDO-CODE * 


♦. > 256 






: * 




CALL LIBRARY 
♦ ♦ 

***************** 



176 



LIL? 

*****A5********** 

* GENERATE * 

* PSFUDO-CODF * 

. ..X* FOR *. 

* M3T OPERATION * 

* * 
***************** 



LIL 3 

*****B5********** 

* GENERATE * 

* PSFuno-rnoF * 

...X* FOR *. 

* CONCATENATION * 

* nPFRATION * 
***************** 



STRING 

LENGTHS 

EQUAL 



.♦STRING *. 
* LENGTHS 
MULTIPLE 

*. OF 8 



*****F<f********** 

* GENERATE * 

* PSEUDO-CODE * 

* FOR *. 

* COMPARE * 

* OPERATION * 
***************** 



LILS 

*****E5********** 

* GENERATE * 

* PSEUOO-CODF * 
...X* FOR * 

* AND-OR * 

* OPERATION * 
***************** 



*****P5********** 

* RELEASE * 

* ANY TEMPS * 
(* USED FROM * 

* TEMP STACK * 



***************** 



ADDSTK X 

*****35*********« 

* ADD * 

* ANY TEMPS * 
CREATED * 



TO 



Chart MB. Phase MB Overall Logic Diagram 



***** 

♦MB * 
* Al* 



•****A1 ********** 
♦INITIALIZATION.* 

* LOAD SCRATCH. * 

* GET SCRATCH * 

* STORAGE * 

* FOR STACK * 
***************** 

**** 

* * 

* Bl *.X. 



**** 

MB0001 X 

*****q\ ********** 

* LA * 
*_*_*-*-*-*_*-*_* 

* USE SCI TO * 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 



.* PSEUDO- *. YES 
. VARIABLE .*.... 
*. PSI .* 



MB0011 

*****£ 2 ********** 

* IDENTIFY * 

* PSEUDO- * 
...X*VARIABLE. MAKE *. 

* STACK ENTRY * 
*SET PSI SWITCH * 
***************** 



. X* 



*****C 3 ********** 

* SET LEVEL AND * 
COUNT TO ZERO * 

AND SET TRT ♦ . 
TO SCAN FOR * 

* ARGUMENTS * 
***************** 



.*. 
Dl *. 
* END *. 
PSEUDO- *. YES 


MB0O12 

*****D2********** 
* PLACE MARKER * 
♦AND TMPD ENTRY * 


.*• 
D3 *. 
.* IS *. 
.♦PSEUDO-VAR *. NO 

*. ITEM .* 
*. .* 
♦ . .* 
* YES 
. ♦*** 
. ♦ * 
. .X^ J4 * 
* * 
**** 


PSI« .* 
♦ . .* 
*. .* 
* NO 

X 


* RESET TRT * 

* * 
***************** 



.♦ MULTIPLE 
♦. ASSIGNMENT 
*. 



MB0014 

*****E;2*** ******* 
*FOR FIRST MULT * 

* ASSIGN MARKER * 
...X* SAVE POINTER *. 

* TO CURRENT * 

* STACK LEVEL * 
***************** 



.* MULT *. 
* ASSIGN OR 
PSV SWITCH 



*****£ 3********** 

♦ SET TRT TABLE * 

♦ TO SCAN FOR ♦ 
,X*SIMPLE ASSIGN. *. 

♦MOVE ANY TMPDS * 

♦ TO STACK ♦ 
***************** 



MB1310 

*****f:3********** 

* RESET INPUT * 

* POINTER TO * 

. ..X* START OF *. 

* SEQUENCE OF * 

* ASSIGNS * 
***************** 



PSEUDO- 
VARIABLE 
.ARGUMENT 



**** 

MBOO20 

*****G5********** 

* MAKE ENTRY * 

* IN STACK FOR * 
. ..X* ARGUMENT. * 

♦ADD 1 TO COUNT * 



*********** 



<*** 



MB1311 X 

*****F4* ********* 
♦RESCAN ASSIGNS * 

♦ AND ASSOCIATE * 
. .X^ TMPDS FROM ♦ 

♦ STACK IN * 

♦ REVERSE ORDER * 
***************** 



MB1340 

*****65* ********* 

* RFSET MULT * 
. YES * ASSIGN AND * 
.* ..X* PSV SWITCHES. * 

* CLEAR STACK * 

* * 
***************** 



.* 
*. .* 
* YES 



**** 

K * 

* Bl * 

* * 
**** 



MBOOIO X 

*****jl********** 
♦RELEASE SCRATCH* 

* STORAGE. ♦ 

♦ RELEASE * 

♦ IEMMB, IEMMC ♦ 

* * 
***************** 



**** 

* * 

* F4 *X.. 

* * 
**** 



NO .♦ PSEUDO- 
...♦. VARIABLE 
*. TMPD 



**** 

* * 

* J4 *.X 



**** 
MB1320 X 

*****J4********** 

* * 

* GENERATE CODE ♦ 
.♦ FOR PSEUDO- ♦ 

* VARIABLE ♦ 

* * 
** *************** 



***** 
*MG * 
* Al* 
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***** 

♦MG * 
* Al* 

* * 



***** A 1 ********** 

* LOAD PHASE MH * 

* AND * 
*BASE REGISTER. * 
♦OBTAIN SCRATCH * 

* STORAGE * 
***************** 

**** 



**** 



*****B1 ********** 

* PHASE LA * 
*-*-*-*-*-*-*-*-* 

* USE SCI TO * 
♦LOOK FOR TRIPLE^ 

* OF INTEREST ♦ 
***************** 



.*. 
CI ♦. 
.* IS * 
.* IT A 


*. 

* 


YES 


LFARIN .*. 

C2 ♦. 

.♦ IS ♦. 

.* CODE TO *. 


♦. TRIPLE 
♦ . .* 
*. .♦ 
* NO 




BY THIS PHASE 
*. .* 
*. .* 
* NO 
. **** 
* 


• 






..X* Bl 
* 


X 

.♦. 

Dl *. 

.* IS * 

.* IT AN 


*, 
E. 
* 


YES 
*.. . . 


**** 
LFIGN .♦. 

D2 *. 

.* IS ». 

.* IT IN *. 


*. 

♦• .♦ 
*, .* 
* NO 




♦ .FUNCTION .* 
*. .♦ 
♦ . .* 
* NO 

**** 
. * 


• 






..X* Bl 
* 


X 
.♦. 

El *. 
.* IS IT * 
.* A SPECIAL 


*, 

* 


YES 


**** 
LFSPEC .♦. 

E2 #. 

.* IS *. 

.* IT IN *. 


♦. TRIPLE 

*. .* 
*. .* 
♦ NO 




♦.FUNCTION .♦ 
♦ . .♦ 
*. .* 
* NO 

**** 
* 


• 






..X* Bl 

* 


X 
.♦. 

Fl *. 
• * IS ♦ 
.* IT AN 


*, 

* 


YES 


**** 
LFCOM .*. 

F2 *. 

.* IS *. 

.* IT IN *. 


*. TRIPLE 
♦. .* 
*. .* 
* NO 




♦.FUNCTION .* 
*. .* 
*. .♦ 
♦ MO 
. **** 
. « 


• 






..X* Bl 

* 


X 
.*. 

Gl *. 
.* IS IT *. 
.* AN END OF 


*, 
* 


YES 


**** 
LFEOF2 .♦. 

G2 *. 

.* IS *. 

.♦ IT END OF ♦. 


*. TRIPLE 
*. .* 
♦ . .* 

* NO 




♦.FUNCTION .* 
*. .* 
*. .♦ 
» NU 


X 
***** 
♦MI * 
* Al* 






X 
**** 

* * 

♦ Bl ♦ 



.X* 



LFARI1 

*****C 3 ********** 

♦ MAKE ENTRY ♦ 

♦ IN STACK. ♦ 
MODIFY SCAN ♦. 

PARAMETER ♦ 



***************** 



*****Q3********** 



***************** 



*****E 3 ********** 
♦ MAKE ENTRY ♦ 

IN STACK TO * 
PRODUCE A ♦. 

BUY TRIPLE ♦ 



. X* 



***************** 



LFDR 

*****F3********** 

♦ INSERT A ♦ 

♦ DESCRIPTION ♦ 
,..X« OF ♦. 

♦ ARGUMENT * 

♦ INTO STACK ♦ 
***************** 



LFEI3F3 

*****G3********** 

* PRODUCE THE * 

* APPROPRIATE ♦ 
...X* IN-LINE *. 

* CODE * 

* * 
***************** 



LFMOVE 

*****Q *(.********* 

* MOVE CODE TO 
.. .X* OUTPUT. RESET 
♦SCAN PARAMETER 
* 
**************** 



178 



Chart MI. Phase MI Overall Logic Diagram 



***** 

*MI * 
* Al* 



*****A1 ********** 

* LOAD PHASE MJ * 

* AND * 
♦BASE REGISTER. * 
♦OBTAIN SCRATCH * 

* STORAGE * 
***************** 

**** 



**** 

X 
*****B1 ********** 

* PHASE LA * 
*-*-*-*-*-*-*-*-* 

* USE SCI TO * 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 





.*. 






LFARIN .*. 


LFARI1 




CI *. 






C2 *. 


*****C 3 ********** 




.* IS * 






.* IS *. 


* MAKE ENTRY * 




* IT A 


*. 


YES 


.* COOE TO *. YES 


* IN STACK. * 


* 


FUNCTION 
*. TRIPLE 


* 












BY THIS PHASE 


* PARAMETER * 




*. •* 






*. .* 


* * 




*. .* 






*. •* 


***************** 




* NO 






* NO 

, **** 

* * 
..X* Bl * 

* * 






X 






**** 






.*. 






LFIGN .*. 






01 *. 






02 *. 


*****D3 ********** 




.* IS ♦ 






.* IS *. 


* * 




* IT AN 


*. 


YES 


.* IT IN *. YES 


* REMOVE TRIPLE * 


* 


.IGNORE TRIPLE. 
*. .* 












♦•FUNCTION .* 


* * 




*. . * 






*• .* 


* * 




*. .* 






*. .* 


***************** 




* NO 






* NO 
. **** 
. * * 
..X* Bl * 
* * 






X 






**** 






.*. 






LFSPEC .*. 






El *. 






E2 *. 


*****£ 3********** 




.* IS IT * 






.* IS *. 


* MAKE ENTRY * 




* A SPECIAL 


*, 


YES 


.* IT IN *. YES 


* IN STACK TO * 


* 


ASSIGNMENT 
*. TRIPLE 


*' 












♦.FUNCTION .♦ 


* BUY TRIPLE * 




*. .* 






*. .* 


* * 




♦ . .♦ 






♦. .* 


***************** 




♦ NO 






* NO 

. **** 

* * 
..X* Bl * 

* * 






X 






**** 






.♦. 






LFCOM .*. 


LFDR 




Fl *. 






F2 *. 


«****F3********** 




.* IS * 






.* IS *. 


* INSERT A * 




* IT AN 


*. 


YES 


.* IT IN *. YES 


* DESCRIPTION * 


* 


. ARGUMENT 
*. TRIPLE 


.♦' 












♦.FUNCTION .* 


* ARGUMENT * 




*. .* 






*. .* 


* INTO STACK * 




*. .* 






*. .* 


***************** 




* NO 






* NO 

. **** 

* * 
..X* Bl * 

* * 






X 






**** 






.*. 






LFE0F2 .*. 


LFE0F3 




Gl *. 






G2 *. 


*****G3********** 




.♦ IS IT ♦ 






.* IS *. 


* PROOUCE THE * 




.* AN ENO OF 


*. 


YES 


.* IT END OF *. YES 


* APPROPRIATE * 


* 


. FUNCTION 
*. TRIPLE 


* 












♦.FUNCTION .♦ 


* CODE * 




*. .* 






*. .* 


* * 



***************** 



* MOVE CODE TO * 
.X* OUTPUT. RESET *. 

♦SCAN PARAMETER * 

* * 
***************** 



***** 
*MK ♦ 
♦ Al* 
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***** 

*MK * 
* Al* 



***** AX ********** 

* LOAD BASE * 

* REGISTER * 

* AND * 
•OBTAIN SCRATCH * 

* STORAGE * 
***************** 

**** * 



**** 



*****B1 ********** 

* PHASE LA * 
*-*-*-*-*-*-*-*-* 

* USE SCI TO * 
*LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 



.* CODE TO *. 
. BE PRODUCED . 
BY THIS PHASE 



, **** 
, * * 
,.X* Bl * 



LFARI1 

*****C3 ********** 

* MAKE ENTRY * 

* IN STACK. * 
...X* MODIFY SCAN *. 

* PARAMETER * 



***************** 



Dl *. 




D2 *. 


.* IS *. 




.* IS *. 


.* IT AN *. 


YES 


.* IT IN *. YES 








*. .* 




♦.FUNCTION .* 


*. .* 




*. .* 


*. .* 




*. .* 


* NO 




* NO 

**** 


• 




. * * 

..X* Bl * 

* * 


X 




**** 


.*. 




LFSPEC .*. 


El *. 




E2 *. 


.* IS IT *. 




.* IS *. 


.* A SPECIAL *. 


YES 


.* IT IN ♦ . YES 


*. ASSIGNMENT 






*. TRIPLE .* 




♦.FUNCTION .* 



,* 



Fl *. 
IS *. 
IT AN *. YES 
ARGUMENT .*.... 
TRIPLE .* 



**** 
K * 
* Bl * 
fc * 

**** 



.* IS *. 
.* IT IN 
.X*. AN IN-LINF 
*. FUNCTION . 



*«***[)3********** 



***************** 



*****E3**«* ****** 
* MAKE ENTRY * 

IN STACK TO * 
PRODUCE A *. 

BUY TRIPLE * 



X* 



***************** 



LFDR 

*****)= 3 ********** 

* INSERT A * 

* DESCRIPTION * 

. ..X* OF *. 

* ARGUMENT * 

* INTO STACK * 
***************** 



Gl *. 

.* IS IT *. 
AN END OF 
FUNCTION 

. TRIPLE . 



G2 *. 

.* IS *. 

. * IT END OF 

. AN IN-LINE 

♦.FUNCTION . 



LFE0F3 

*****G 3 ********** 

* PRODUCE THE * 

* APPROPRIATE * 
...X* IN-LINE *. 

* cone * 

* * 
***************** 



* MOVE CODE TO * 
,X* OUTPUT. RESET *. 

♦SCAN PARAMETER * 

* * 
***************** 



***** 
*ML ♦ 
* A2* 



**** 

* 4 

* Bl * 

* » 
**** 
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***** 

*ML * 

* A2* 

* * 



**€#*A2****4 







Ifpaui X 

. ****#g2*#******** 

* SCAN FOR * 

* FUNCTION * 

* ARGUMENT OR * 

* END OF * 

* PROGRAM * 
. *****«*****#***** 




'. X 
.*. 
C2 *. 
.* *. 
.* IS IT *. YES 




*. PROGRAM .* 
. *. .* 
• *. «* 
* NO 


X 

***** 
*MM * 
* A2* 

* * 

* 


* X 

•FPFNAR .*. 

02 *. 

'. NO .*" IS IT "*. 
....*. AN ENTRY .* 





.* IS *. 

GENERIC 

SELECTION 

.REQUIRED . 



F2 *. 
.* IS IT *. 
NO .*A BUILT-IN 
...*. FUNCTION 



FPEPCO 

*****E 3 ********** 

* GENERATE CODE * 

* TO CONSTRUCT * 
....X* AN ENTRY *. 

X * PARAMETER * 



***************** 



FPGAR 

*****gl**** ****** 

* FORM TABLE * 

* OF FAMILY * 

* MEMBER * 

* DESCRIPTIONS * 

* * 
***************** 



FPARD3 

*****H1 ********** 

* FORM ENTRY * 

* RELATING TO * 

* ARGUMENT * 

* DESCRIPTION * 

* * 
***************** 



*****jl ********** 

* * 

* CHECK FOR * 

* ONE AND ONLY * 

* ONE AGREEMENT * 

* * 
***************** 



*****K1**** ****** 

* REPLAC£ * 
» ORIGINAL * 

* REFERENCE *. 

* IN TEXT * 

* * 
***************** 



FPBIF 

*****G2* ********* 

* ACCESS * 

* RELEVANT * 

* FUNCTION * 

* TABLE ENTRY * 

* * 
***************** 



*****^2 ********** 

* SELECT * 

* RELEVANT * 

* FAMILY * 

* MEMBER * 

* * 
***************** 



FPF04 

*****J2********** 

* REPLACE * 

* ORIGINAL * 

* REFERENCE *. 

* IN TEXT * 

* * 
***************** 



*****E4********** 

* REPLACE * 

* ARGUMENT WITH * 
,X*ENTRY PARAMETER* 

* REFERENCE * 

* * 
***************** 
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***** 

*MM * 
* A2* 



* LOAD * 

* MODULE AND *. 

* INITIALIZE * 

* * 
***************** 



CFEXIT 

*****A3 ********** 

* SCAN FOR * 

♦CALL, FUNCTION,* 

...X* INVOCATION, *X. 



OR 



X 

.*. 

83 *. 

.* HAS *. 

.* END OF *. YES 




*. FOUND .* 

*. .* 

*. .* 

* NO" 


X 
***** 

♦ MP * 

* Al* 



* SCAN ARGUMFNT * 

* LIST FORMING * 

* TABLE ENTRIES * 

* * 
***************** 



CFB036 X 

*****D3********** 

* RESTORE * 

* POINTER TO * 

* START OF * 

* INVOCATION * 

* * 
***************** 



CFB021 




*. 




F4 


*. 




* 


* 


.* 


IS 


THIS 


*. 


1 BUILT-IN 


* 


FUNCTION 




*. 


.* 




* 


.* 
* NO 



***************** 



* F3 *.X 



**** 

CFCFSS X 

*****p 3 ********** 

* SCAN' ARGUMENTS * 

* AND GENERATE * 

* CODE TO FORM *X. 

* ARGUMENT LIST * 

* BLOCK * 
***************** 



.♦IS THIS*. 
AN ARRAY 
BUILT-IN 

.FUNCTION . 



.* IS *. 
* CALLING * 

SEQUENCE 
*. SPECIAL .* 



*****E5********** 

* GENERATE THE * 
♦ARRAY BUILT-IN * 

CALLING ♦ 
SEQUENCE * 

* * 
***************** 



.X* 



IS THERE 
A NESTED 
.FUNCTION 



CFYO07 

*****G4* ********* 
*SET PARAMETERS * 

* TO PRODUCE ♦ 
....♦ THE EXTRA ♦ 

* ITEMS ♦ 



***************** 



CFL06 

*****H1 ********** 

♦ GENERATE CODE ♦ 

♦ TO SET UP * 

♦ RESULT *X. 

♦ DOPE VECTOR ♦ 

♦ * 
***************** 



.*. 
H2 *. 
,* *. 
IS RESULT *. 
A STRING .< 

,* 
*. .* 
♦. .* 



H3 



.♦. 



.♦IS THIS*. 
FUNC .*INVOCATION *. CALL * 
♦. A CALL OR A .♦ X* 

♦.FUNCTION .♦ X ♦ 
*. .* 

***************** 



CFCALP 

*****H4* ********* 

* GENERATE * 

* CODE TO ♦ 
TRANSFER *. 

CONTROL * 



.* MAS ♦. NO 
■ X*. INVOCATION .♦... 
*. NESTED .♦ 



CFL043 X 

*****j2 ********** 

* GENERATE CODE * 
♦TO PLACE RESULT* 

...X* ADDRESS IN *. 

* ARGUMENT LIST * 

* * 
***************** 



***************** 
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X 

***** A 1* ********* 










X 




* * 














* SCAN TEXT AND * 














♦HOVE TO OUTPUT * 

* * 














* * 
***************** 














ISMITCH ON 














•APPROPRIATE 


TRIPLE 












X 


MP3 


X 


MP882 


X 




MP*A X '. 


*****Q1 ********** 


*** 


**B2********** 




B3* **. 




*****B4 ********** 


* * 


* 






* *• 




* BUYX TRIPLE. * 


♦BUYS TRIPLE FOR* 








SELL. ♦ 


NO '. 


♦CHANGE TO BUYS.* 


* TEMP ADJUST * 




END OF TEXT * 




BUYX FLAG 




*SET BUYX FLAG, *. . . . 


* STRING * 








ON .* 




* IF CURRENTLY * X 


* * 




* 




*• .* 




* OFF * . 


***************** 


**4 


************** 

X 

***** 
*MS * 




♦. .* 
* YES 

X 




***************** . 

**** ' 

* * 

♦ C4 *... 

♦♦♦♦ I I 


X 




* A2* 








MP887 X 


*****C1 ********** 








C3 *. 




*****c<,«**«****** 


♦STACK BUYS DR. * 




* 








* * 


♦ STACK INPUT. * 








LAST * 


YES 


* GENERATE * 


* POINTER* ♦ 






"* 


SELL 






♦ SKIP TO NEXT ♦ 




* SELL LIST * X 


♦ BUY ♦ 








*. .** 




* * 


***************** 












***************** . 


* I 

* . 

* , 










» NO 






X 














ADOSEL " 


*****oi ********** 














*****Q4* ********* 


* * 


**** 












* * 


* ADD DICT REF ♦ 














* ADD DICT REF * 


* TO SELL LIST *X.. 


.* Dl * 















***************** 



*****£!******** 



•APPROPRIATE TRIPLE 



*****F1 ********** 

* BUYS FN ARG. * 

* MOVE BUYS-BUY * 
*TEXT TO OUTPUT.* 

* REMOVE FROM * 

* STACK * 
***************** 



OUTERMOST 
BUYS 
. TRIPLE 



MP 30 X 

*****F 2 ******** 
♦SUBSPT, ASSIGN 

* MOVE ANY SDV 

* LENGTH CODE 



*****F4***« 

* 

* BUY. 



TO OUTPUT 



*****Hl********** 

* * 

* RESET INPUT * 

* POINTER TO *. 

* OUTER BUYS ♦ 

* * 
***************** 



* SCAN TEXT AND * 
. X*MOVE TO OUTPUT * 



APPROPRIATE 



IS FN ARG. 
*. OUTERMOST. 



*J3********* 



* REMOVE TRIPLE 

* FROM TEXT 



*****J4«***« 



REMOVE BUYS 

FUNCTION 

ARGUMENT FROM 
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***** 

*MS * 
* A2* 



3EGIN X 

*****A2 ********** 

* LOAD * 

* MODULE * 

* AND * 

* INITIALIZE * 

* * 
***************** 



**** 

X 
*****B2********** 

* SCAN FOR * 

* SUBSCRIPTED * 

* ELEMENT OR * 
*END OF PROGRAM * 

* * 
***************** 



C2 *. 
.* *. 
.* HAS END *. YES 

*. OF PROGRAM .* 

*. BEEN .* X 

*. FOUND.* ***** 

*. .* *NA * 

* NO * A2* 

* * 



* SAVE * 

* ARRAY * 

* NAME * 

* * 
***************** 



SBTRID X 

*****E2********* 5 
*SCAN FOR COMMA," 

* SUBSCRIPT * 
...X* PRIME, ' 

* OR SUBSCRIPT " 

* TRIPLE " 

****** *******«**> 



.* ARGUMENT 
,X*. FIXED 
*. BINARY 



* CONVERT IT * 
<* TO FIXED * 

* BINARY * 

* * 
***************** 



***************** 



SBTRID 
YES .* 



G2 *. 

.* *. 

* IS IT *. 

A 

*. SUBSCRIPT.* 

*. .* 

*. .* 

* NO 



.* IS *. YES 
. MULTIPLIER .*.... 
*A CONSTANT.* 



SBS02B 

*****G4********** 

* MAKE ENTRY * 

* FOR IT IN * 
,..X* CONSTANT * 

* POOL * 

* * 
***************** 



****H1 ********* 
► TERMINATE * 

* COMPILATION *X. 

* * 
*************** 



.* IS *. 

SUBSCRIPT 

COUNT 

. CORRECT . 



SBS05 X 

*****H3* ********* 

* GENERATE CODE * 

* TO MULTIPLY * 

* SUBSCRIPT BY *X. 

* MULTIPLIER * 

* * 
***************** 



NO .* IS 
...*. MULTIPLIER 

*. 4 OR 8 



***** J 1 ********** 



***************** 



SBS029 X 

*****J4* ********* 

* GENERATE CODE * 

* TO ADD * 
....* SUBSCRIPT TO * 

* ITSELF TWO OR * 

* THREE TIMES * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



* E2 *X... 



.* IS 

SUBRG 
*. ACTIVE 



SBSBRN 

*****K4********** 

* GENERATE CODE * 

* TO CHECK * 
,..X* RANGE OF *. 

* SUBSCRIPT * 

* * 
***************** 
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*****A2 ********** 



*****A5**« ******* 



*L00K FOR TRIPLE* 
* OF INTEREST * 
***************** 



LAST TRIPLE. 



HOVE 
_T TRIP__ 
GET NEXT 

*************** 



*****B3 ********** 

* * 

* DELETE * 

* LAST TRIPLE. *X 

* GET NEXT * 

***************** 



DUTPUT CALL 



YES .* PROC PRM 



TO IHESAFA *X *.OR BEGIN PRM 



************ 



.* OPERAND A *. NO 
. BIT STRING .*... 



COMPARE BIT 



**************** 



*****03 ********** 
* OUTPUT CALL * 



OUTPUT 
SSIGNMEN 
TRIPLE 



ASSIGNMENT 



***** 
*NG * 
* Al* 



*****E1**** ****** 

* * 

* OUTPUT CALL * 

* TO IHEOSEA *. 

* « 
***************** 



* MASK TO LABEL * 

* * 
***************** 



NA8010 

*****B5* ********* 
♦ESTUT1 LV* 



* VARIOUS 

TYPES 
•.RETURNED 



♦CONVERT OPERAND* 
* TO BIT STRING * 
***************** 



*****D 5* ********* 

* GENERATE * 

* ASSIGN TRIPLF * 
*FOR EACH ENTRY.* 

* FOLLOW WITH * 

* BRANCH TO ... * 
***************** 



*****E5* ********* 
*GIVE EACH ENTRY* 
♦POINT A SWITCH * 
.X*VALUE AND OUTPT* 
*CODE TO BRANCH * 
*ON SHTCH VALUES* 
***************** 



*****F3********** 
OUTPUT P/C TO 



*****F4****** 







YES .* EXIT * 

*. .♦ 

*. .* 

*. .* 

* NO 


" 


*LOAO REG 1 WITH* 


* DELETE * 


'*. .*" 

* NO 


•LABEL, AND CALL* 
* IHESAFC * 

***************** 
X 


* GOTO TRIPLES * 
X 


X 

**G1********** 

* 

OUTPUT CALL * 

TO IHEOSSA * 

************** 


X 

G2* '*. 

.*" * 
♦.GOTO OR GOOB 

"*. .*" 


YES 


'. YES 
.*. 
G3 *. 

.*' '*. NO 


GOTO '. 

*****Q^ ********** 

* OUTPUT * 

* PSEuDCl-CODE TO * 

* LABEL * 



SYSTEM/SNAP 



*****H5******** 

* INCLUDE 

* PSEUDO-CODE 
X* TO SET SNAP 

♦ BIT ON IN 

♦ ON-UNIT 
*************** 



*****J1********* 
♦OUTPUT PSEUDO- 

* CODE TO SET 

* REVERT BIT ON 
*IN ONE OR MORE 

* UN-UNITS 



* OUTPUT P/C TO 
♦SET SYSTEM BIT 
. * ON IN ONE OR 



*****J4********** 

* OUTPUT P/C TO * 
♦PUT ADORESS OF ♦ 

* PROCEDURE IN ♦. 

* ONE OR MORE * 



SIGNAL 

*****K3** ******* 

• OUTPUT P/C TO 

* INSERT CODE 
...X* BYTE IN PRV 



***************** 



Section 3: Charts and Routine Directories 185 



Chart NG. Phase NG Overall Logic Diagram 



***** 

*NG * 
* Al* 



*****A1 ********** 

* LA * 
*-*-*-*-*-*-*-*-* 

USE SCI TO *> 
♦LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 



, X* 



.* *. NO 

*. EOP2 .*... 
*. .* 

*. .* 



DISPLAY 



***** 

*NJ * 

* Al* 

* * 



* CONVERT * 

* OPERAND TO * 

* INTEGER * 

* * 
***************** 



DSPY.CHAR X 

*****£ 3********** 

* CONVERT * 

* OPERAND TO * 

* CHARACTER * 

* STRING * 

* * 
***************** 



*****D2 ********** 

* * 

* GENERATE CALL * 
.* TO IHEOSIA * 

♦LIBRARY MODULE * 

* * 
***************** 



REPLY *. 
OPTION 
PRESENT .* 



DSPY3 

*****04** ******** 

* CHECK THAT * 

* OPERAND IS * 
...X* CHARACTER * 

* VARIABLE * 

* * 
***************** 



***************** 



*****(: 3 ********** 

* * 

* GENERATE CALL ♦ 
.* TO IHEDSPA * 

•LIBRARY MODULE * 

* * 
***************** 
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***** 

*NJ * 
* Al* 



**** 

* * 

* A2 * 
t * 

**** 



* A5 « 
► 4 
**** 



***************** 



* SCAN UNTIL * 
.X* RECORD I/O *. 

* VERB FOUND * 

* * 
***************** 



*****A3********** 

* SET PROPER * 
OPERATION * 

CODE IN *. 

* REQUEST-CODE * 

* * 
***************** 



.X* 



SCRHOP 

*****A4*** ******* 

* SETUP * 

* OPTION * 
,..X* TRIPLES TO *. 

* BE SCANNED * 

* FOR * 
***************** 



DYNMPL 

*****gl ********** 

* GENERATE * 

. * CODE TO PUT * 

..X* IN WORKSPACE. * 

. * PARH LIST * 



*****B2 ********** 



* 


PUT 


IN 


* 


..X* 


STATIC PARM 


* 


. * 


LIST 


* 


* 






* 


. ***************** 


**** 


X 




* 








B2 * 








* 








**** 


. 


CONS 






C2 


*. 





***** 

*NM * 
* Al* 



PARM .* PARM * 

*. OR CONSTANT 

*. ARG .* 



.* DYNAMIC *. 

.X*. STORAGE .*.. 

*• CLASS .* 



**** 

* * 

* Dl * 

* * 
**** 



*****D3 ********** 

•ZSTUT2 LV* 
*-*-*-*-*-*-*-*-* 

* DETERMINE 

* MODE OF * 

* REFERENCE * 
***************** 



*X 



TXTARG 


D4 *. 
* *. 


TEMP .* 
* 


DICT 

REF OR 

TFMP 

*. . * 




*. •* 




* DICT 



*****gl ********** 

* CONVERT TO * 

* CHAR STRING * 

* AND DETERMINE *X. 

* MODE OF REF * 

* (ZSTUT1) * 
***************** 



*****F1 ********** 

* REQUEST * 

* CONVERSION * 

* TO INTEGER *X. 

* THRU DICT * 

* ENTRY * 
***************** 



.* 
NO .* CHAR 
...*. STRING 



CONS .* CONSTANT *. 

*. OR VARIABLF .*X. 

*. .* 

*. .* 



*****H1 ********** 

* CREATE RDV * 

* IN WORKSPACE * 

* FROM DOPE * 

* VECTOR * 

* * 
***************** 



.* *! 

J .« *. 

.*. INTEGER .*X. 
*. .* 

*. .* 
*. .* 
* YES 
, **** 

X. * * 

..X* B2 * 

* * 
**** 

*****G2 ********** 

* * 

* GENERATE * 

* ASSIGNMENT *X. 

* TRIPLE * 

* * 
***************** 

', **** 

* * 
..X* Bl * 
X * * 
. **** 

*****H2 ********** 

* CREATE RDV * 

* IN WORKSPACE * 

* FROM INFO * 

* IN ROV ENTRY * 

* * 
***************** 



*****jl ********** 

* LA* 
*_*_*_*_*-*_*-*-* 

,* CANCEL * 

* OPTION TRIPLE * 

* IN SCAN * 
***************** 



STRING 
*. .* 



INTEGER 
"*. .« 



..X* Dl * 
X * * 
**** 
REFRDV 

«****H3********** 

* DETERMINE * 

* RDV *X. 

* REFERENCE * 

* * 
***************** 

**** 

* * 

* B2 *X.. 

* * 
**** , 

CALLIB 

*****J3********** 

* GENERATE * 

* LIBRARY CALL * 

* TO RDV IN *X. 

* WORKSPACE * 

* * 
***************** 



**** 



SELL 

*****K1 ********** 

* IF SELL * 

* CHAIN EXISTS * 

* GENERATE *X. 

* SELL TRIPLES * 

* * 
***************** 



*****K 2 ********** 

* * 

* IF WORKSPACE * 
.* USED MODIFY *X. 

* MOVE INSTR * 

* * 
***************** 



CALLIB 

*****K 3* ********* 

* CREATE * 

* RECORD I/O * 
....* LIBRARY *» 

* CALL * 



***************** 



TXTARG 
DICT .* 



DICT 
REF OR 
*. TEMP 



DICT .* DICT 
.....*. REF OR 

*. TEMP 



*****G4* ********* 

* PUT ENTRY * 

* ON SELL * 

* CHAIN *X 

* SELLSW ON * 

* * 
***************** 

I **** 

I.X* AS * 
* * 
**** 
.*. 
H4 *. 



*****K4********** 

* PUT REQUEST * 

* CODE AND * 
■* PARM LIST IN *X. 

* DICTIONARY * 

* * 
***************** 



* BRANCH ON * 
<* APPROPRIATE *. 

* OPTION * 

* * 
***************** 



*****B5********* 



***************** 



.* FILF OPT *X. 

* * 

* * 
***************** 



KYTOPT 

*****q 5* ********* 

* SET * 

* KEY TO * 
....* REQUEST *) 

* CODE * 



***************** 



KEYOPT 

*****£5* ********* 

* SET * 

* KEY/KEYFROM * 
....* REQUEST *X. 

* CODE * 



***************** 



IGNOPT 

*****F5********* 

* SET 

* IGNORE 

, ...* REQUEST 

* CODE 



***************** 



***************** 



SFT 
INTO/FROM 
REQ. CODE 



***************** 
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***** 

*NH * 
* Al* 



* SCAN TO * 
<* NEXT TRIPLE *X 

* OF INTEREST * 

* * 
***************** 



32 * 
OPEN 



B3 *. 
CLOSE 



X 
***** 
*NT * 
* Al* 

* * 



* CHECK * 

* VALIDITY * 

* OF OPTIONS * 

* * 
***************** 



*****D2 ********** 

* BUILO UP * 

* PARAMETER * 

* LIST FROM * 

* OPTIONS * 

* * 
***************** 



CALIB X 

*****E2 ********** 

* GENERATE CALL * 

* TO LIBRARY * 

* MODULE * 

* IHEOCLA * 

* * 
***************** 



* CHECK * 

* VALIDITY * 

* OF OPTIONS * 

* * 

**o(t*** *********** 



*****Q 3**** ****** 

* BUILD UP * 

* PARAMETER * 

* LIST FROM * 

* OPTIONS * 

* * 
***************** 



CALIB X 

*****£. 3********** 

* GENERATE CALL *■ 

* TO LIBRARY * 

* MODULE * 

* IHEOCLB * 

* * 
***************** 



.X 

X 
GETOO .*. 

C4 *. 

.* IS *. 

.*NEXT TRIPLE*. YES 

•X*. DATA, EDIT, .*.... 

*. LIST .* 

*. .* 

*. .* 



*****04* ********* 



***************** 



, STORAD X 

*****£ 4* ********* 

* INSERT * 

* OPTION IN * 
.* PARAMETER * 

* LIST * 

* * 
***************** 



B5 « 
.* 
.* 
.X*. PUT 



GET 20 

*****C 5* ********* 

* GENERATE * 
♦INITIALIZATION * 

...X* CALL TO * 

* LIBRARY * 

* * 
***************** 



MVTRSP X 

*****05 ********** 

* MOVE DATA * 
♦SPECIFICATIONS * 

* TO OUTPUT * 

* UNCHANGED * 

* * 
***************** 



GET85 X 

*****E5********** 

* GENERATE * 

* TERMINATION * 

* CALL TO * 

* LIBRARY * 

* * 
***************** 
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*♦♦♦♦ 

♦NT * 
* Al* 



NTOOOO X 

*****A1********** 

* INITIALIZE * 

* PHASE AND * 
*■ GET 4K AREA * 

* OF SCRATCH * 

* STORAGE * 
***************** 



NT0001 «.*. 

Bl ♦ . 

-* HAS *. 

.♦ SCAN BEEN *. N 

♦.INDICATED BY .♦. 

*. PHASE .* 

*. NM .♦ 



NT1700 X 

*****B2 ********** 

* MOVE TEXT ♦ 

* FOR USE er * 
...X* PHASE NU INTO ♦. 

* SCRATCH * 

* STORAGE * 
***************** 



* YES 



***** 
*NU * 
* Al* 



***♦ 

X 

*****ci ********** 

* SCAN FOR * 

* TRIPLES OF * 

* INTEREST TO ♦ 

* THIS PHASE ♦ 
*. * 
***************** 



.» COMMA *. VES 
*.IN EDIT LIST .*.... 
*. .* 

*. .♦ 



NTU021 

*****D2 ********** 

* DETERMINE * 
*DED OF VARIABLE* 

. ..X*ANO MAKF ENTRY *. . . 

* IN DATA * 

* TYPES LIST * 
***************** 



MAKE ENTRY 
IN FORMAT 
ITEM LIST 



***************** 







.*. 








Fl * 








* END 


* 




* 


OF 




* 




FORMAT 






* 


LIST 





A4 



*. 
< 

FMT« 



NT0023 

*****B4* ********* 

♦ASSOCIATE ITEMS* 

* IN THE * 
♦DATA AND FORMAT* 

* TYPE LISTS * 

* * 
***************** 



NTOOll X 

*****C 4* ********* 

* SET INCLUDE * 

* BITS AND LIB * 
♦ROUTINE REQUEST* 

* BITS * 

* * 

*****************; 



*****D4* ********* 

* SAVE TYPE * 

* CODES OF ANY * 
♦DATA ITEM WHICH* 

* MAY INVOKE * 
♦REMOTE FORMATS * 
***************** 



NTOOll X 

***** (3 5 ********** 

♦ SAVE FORMAT ♦ 

♦ ITEM LIST FOR * 

♦ USE AT PROC * 

♦ OR BEGIN * 

♦ * 
***************** 



NTC014 

*****G2 ********** 

* ASSOCIATE ALL * 

* RBMUTE FORMAT * 
...X* ITEMS WITH *. 

* ALL POSSIBLE * 

* DATA ITEMS * 
***************** 



*****Q3 ********** 

* MARK REQUIRED * 

* LIB ROUTINES * 

, X* AND SET ALL *. 

* NECESSARY * 

* INCLUDE BITS * 
***************** 



.* ENO OF 
PROGRAM 
*. 



NTU017 

*****H2* ********* 

* MAKE ENTRIES * 

* FOR THOSE * 
...X* LIBRARY *. 

♦ROUTINES MARKED* 

* AS NECESSARY * 
***************** 



*****H3********** 

* PLACE DICT * 

* REFS OF THESE * 
,X*ENTRIES IN THE *. 

* LIB ROUTINE * 

* TABLE * 
***************** 



**** 

* * 
.X* B2 * 

* * 
*#** 
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*****A j** ******** 

* INITIALIZE * 

* PHASE. * 

* LOAD * 

* MODULE IEMNV * 

* * 
***************** 



31 *.X 



**** 

obiio x 

*****B1 ********** 

* LA * 
*-*-*-*-*-*-*-*-* 

* USE SCI TO * 
*LOOK FOR TRIPLE* 

* OF INTEREST * 
***************** 



**** 

* * 

* A2 * 

* * 
**** 

.x! 



* SCAN FOR * 

* COMMA AND * 

* DATA 1 TRIPLES * 

* * 
***************** 



0BUT24 

*****B 3 ********** 

* GENERATE ARG * 
. YES * LIST ENTRY, * 
.* X* SYMBOL TABLE * 

* ENTRY. SET * 

* INCLUDE BIT * 
***************** 



OBD11 X 

*****C 3**** ****** 

* IF LIST FULL * 

* OR INSIDE * 

* REPLICATION * 

* GENERATE * 

* LIBRARY CALL * 
***************** 



**** 

* * 

* A2 * 

* * 
**#* 



**** 

* A 
.X* A2 * 

* * 
**** 



Dl * 
LIST 
*. .* 



D2 *. 
.* *. 
■ ANY LIST * 
ITEMS FOUND 



OBD20 

*****0 3 ********** 

* GENERATE CALL * 
.NO * TO LIBRARY * 
.* X* INDICATING NO * 

* DATA LIST * 

* * 
***************** 



**** 

* 4 

* A4 * 

* * 
**** 



OBD12 

*****E2********** 

* GENERATE LIB * 

* CALL FOR AMY * 

* OUTSTANDING *. 

* ARGUMENT LIST * 

* * 
***************** 



.*. OB?00 

=1 *. *****F2********** 

*. * GENERATE CODE * 

*. YES * TO LOAD THE * 

EDIT .* X*ADDRESS OF THE *. 

.* * FORMAT CODE * 

.* *INTO REGISTER 8* 

*. .* ***************** 
* NO 



.*. 




PREFMT,0BC61 


Gl *. 




*****G2********** 


.* *. 




♦GENERATE BRANCH* 


*, 


YES 


* ROUND REMOTE * 








. MARKER .* 




♦STATEMENT WHICH* 


*. .* 




* FOLLOWS * 


*. .* 




***************** 


* NO 




X 
**** 


X 




* * 


. *. 




* Bl * 


HI *. 




* * 


.* *. 




**** **** 



*****F3********** 

* MARK ALL DATA * 
♦DIRECTED INPUT * 
♦CONVERSIONS IN *. 
♦INCLUDE MATRIX ♦ 

♦ * 
***************** 



*****P3********** 

♦ SCAN FOR ♦ 

* COMMA AND * 
.X* EDIT' TRIPLES *X. 



***************** 



* SCAN FOR * 

* COMMA AND * 

* LIST' TRIPLES * 

* ♦ 
***************** 



YES 



OBUT25 

*****B5* ********* 

* GENERATE CALL * 
*TU LIBRARY AND * 

.* X*SET LIST. DIRECT* 

♦ I/O BIT IN ♦ 
♦INCLUDE MATRIX ♦ 
***************** 



**** 

* * 

* A4 * 

* * 
**** 



.* *. **** 

* ♦. YES ♦ * 

LIST' ......X* A4 * 



**** 

* * 

* Bl * 

* * 

**** 



OBG30 X 

*****p 5* ********* 

* SCAN FOR ♦ 

* F3RMAT ITEMS * 
,X* ANO GENERATE * 

* LIBRARY CALLS * 

* * 
***************** 



OB730 

*****Q4* ********* 

♦ GENERATE ♦ 

♦ LA 1, ITEM ♦ 
...X^ LA 2, DED ♦ 

♦ BALR 7,8 ♦ 



***************** 



G5 



*. 



OB720 
NO .* 



H3 *. 

* < 

EDIT' 

*. .< 
♦. .♦ 



<0 .♦ FORMAT' 

..*. OR FORMAT 

♦. LIST' . 

♦ . .* 

*. .* 

* YES 



OBC5C X 

*****H5* ********* 
♦GENERATE BRANCH* 

♦ TO START OF * 
♦LIST OR RETURN ♦ 

* ( IF REMOTE) * 
♦GENERATE LABEL * 
***************** 



**** 

* * 

* Bl * 

* * 
**** 



*****J2* ********* 
♦RELEASE MODULES* 

♦ IEMNU, IEMNV. * 
.X*RELEASE SCRATCH* 

♦ STORAGE OF ♦ 

♦ IEMNT * 
***************** 



*♦*♦♦ 
*OB * 
♦ Al* 



0B840 X 

*****J3********** 

♦GENERATE BRANCH* 
* ROUND FORMAT * 
...* LIST WHICH * 
. * FOLLOWS. SCAN * 
. *TO FORMAT LIST * 
X ***************** 
**** 

* * 

* F5 * 
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***** 

*0B * 
* Al* 



, X* 



*****A1********** 
* 
* 
SCAN TEXT *X...X... 

* * 

* * . 
***************** . 

**** 

* * 

* Al * 

* * 
**** 



END 

OF 

TEXT 



CI *. 

.* *. 

.* COMPILER *. 

*. PSEUDO- 

*. VARIABLE .* 

*. .* 

*• .* 

* NO 



.* MTF *. YES 
►. FUNCTION .*.... 

*. .* 

*. .* 



.*. 
Gl *. 
.* ADV *. 
.* OR SDV *. YES 
*. FUNCTION .*.... 
*. ? .* 
*. 



• .* 

* NO 



***** 

*OE * 

* Al* 

* * 



*****C2 ********** 



,X* 



****** *********** 



D2 *. 

.* IS *. 

.* ASSIGNED * 

*. VALUE FIXED 

*. BINARY •* 

*. ? .* 



*****C 3 ********** 

* PLACE * 

* PSEUDO- * 
VARIABLE * 

PARAMETERS * 

* IN STACK * 
***************** 



*****E2 ********** 

* PLACE ASSIGN * 

* TO FIXED * 

* BINARY IN *. 

* TEXT * 

* * 
***************** 



F2 *. 
.* IS * 
.* FIRST 
OPERAND 
*. CTL OR 
*.TEMP .* 
*. .* 
* NO 



#****D3* ********* 

* EXAMINE * 
PSV OPERAND * 

AT TOP OF *. 

* STACK * 

* * 
***************** 



.X* 



CTL *. YES 
OR TEMP .*.... 

.* 



*****05 ********** 

* REPLACE * 

* OPERAND BY * 
<* WORKSPACE * 

* REF * 

* * 
***************** 



*****£ 4* ********* 

* CALCULATE * 

* DOPE VECTOR * 

* OFFSET FROM *. 

* PARAMETERS * 

* * 
***************** 



. X* 



*****E5* ********* 

* GENERATE * 

* CODE TO * 
SET RESULT * 

* IN DOPE * 

* VECTOR * 
***************** 



FRSTOP 

*****F3********** 
* REPLACE * 



***************** 



**** 

*****F 4* ********* 

* REPLACE * 

* MTF BY * 
<* PSEUDO-CODE * 

* MVC * 

* * 
***************** 



*****F 5* ********* 



***************** 



AOVR 

*****52* ********* 

* CALCULATE * 

* DOPE VECTOR * 

. ..X* OFFSET FROM *. 

* PARAMETERS * 



***************** 



ST7.ST8 .*. 



. X* 



*****G3 ********** 

* GENERATE * 
PSEUDO-CODE * 

TO LOAD *. 
REGISTER FROM * 

* DOPE VECTOR * 
***************** 



**** 

* 4 

.X* Al * 

* « 
**** 



.* BUYS 


*, 


YES 


.* IT A *. NO 


.* SCALAR *. YES 


*. OR FIRST 










*. BUY 


* 




*.ONLY TEMP.* 


*. BYTES .* 


*. .* 






*. .* 


*. .* 


*. .* 






*. .* 


*. .* 


* NO 






* YES 


* NO 
. **** 
. * * 
..X* Al * 
* * 


X 








**** 


.*. 






BY19 X 




Jl *. 






*****J2********** 


*****J3********** 


.* * 






* ALIGN * 


* PLACE * 


YES .* SELL 


* 




* WORKSPACE * 


* WORKSPACE * 


X..*. CUR 2ND 




* 






*. BUY 


* 




* 4-BYTE BOUND * 


* IN OFFSET 2 * 


*. .* 






* * 


* SLOT * 


*. .* 






***************** 


***************** 



*****H4* ********* *****H 5* ********* 

* ALIGN * * PLACE * 

* WORKSPACE * * WORKSPACE * 
X* TO * X* OFFSET * 

* REQUIRED * * IN OFFSET 1 * 

* BOUNDARY * * SLOT * 
***************** ***************** 

X 

*****j 4* ********* *****j 5* ********* 

* * * * 

* BUMP * * REMOVE * 
X* WORKSPACE * X* STATEMENT * 

* COUNT * X * FROM TEXT * 

* * . * * 
***************** . ***************** 



*•** 

* * 
C Al * 

* 4 
**** 



NO .* HAS *. YES 

...*. BUYS BEEN .*.... 

*. REMOVED .* 
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*****A1 ********** 
* * 

*LOAD MODULE OF * 



*************** 



INTERESTING 



*. ASSIGNMENT 



•OBTAIN OPERAND 
•DESCRIPTNS FROM* 
X* TMPD TRIPLES, *. 
* AND CHECK FOR * 



2 .*. SPASS 

C3 *. *****c<,*****4**» 

.* *. * ALLOCATE OR 

* SPECIAL *. rES * BUY STORAGE 
ASSIGNMENT .*........X* FOR SECOND 

*• TRIPLE .* * OPERAND 

*. . * * 

*. .* **************** 
* NO 

!x '. 

X 
.*. ASFLGO 

D3 *. *****ri4********* 

.* ARE *. * GENERATE CODE 

* OPERANDS *. YES * FOR FLOATING 
FLOATING .* X* POINT 

*. POINT .* * ASSIGNMENT 



OPERANDS 

FIXED 

. BINARY 



* STRINGS *. YES 

OR NUMERIC .*.... 
*. FIELDS .* 



ARE 
OPERANDS 
. LABELS 



GENERATE CODE 

FOR FIXFD 

BINARY 

ASSIGNMENT 



GENERATF CODE 

FOR FIXED 

DECIMAL 

ASSIGNMENT 



*****G^* ********* 

* GENERATE CODE * 

* FOR STRING OR * 



*************** 



*****H4* ********* 

* * 

* GENERATE CODE * 



ASSIGNMENT 



*****H5* ********* 
* DROP SYMBOLIC * 



* TMPD TRIPLES 



.* BUY, *. 
SELL. 
ALLOCATE, 
. FREE 



*****J2*********» 



***************** 



*****J3********** 

* * **** 

* GENERATE * * 

* CONV MACRO *....X* Bl 

* * * 

* * **** 
***************** 



*****K1********** 
♦END OF PROGRAM,* 
* SO MARK PHASE * 



***************** 
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*****Bl********** 



TRIPLE TO * 
X» PSEUDO-CODE. * 
•MOVE TO OUTPUT * 
* * 

***************** 



*****B2********** 
* • 

*GET NEXT TRIPLE* 



* X* AND EXAMINE 



************ 



* WORKSPACE 3 



.* OR BEGIN 



*****C3********** 
•STORE WORKSPACE* 
COUNTS FOR 



• •PRIMEO OR NOT.* X* CURRENT BLOCK * X*. 



**«**C5»****»»*** 



COUNTS FOR 



***************** 



«*«***•*****•*«#* 



*•**•**•***** 



*. PRIMED 
*. 

• ■ .* 
*. .* 
* YES 



* WORKSPACE 3 • 



* WORKSPACE 1 
**************** 



COUNTS FOR 



***************** 



* SN TRIPLES 



********** 



EOP OR EOP2 



* Bl *X. 

* * 
**•* 



.*. 

3 .* 


'». NO 


.*. 
E* *. 
-* *. 
.« *. NO 


MJGC40 

*****E 5* ******* 

* SET MARKER 

* SO THAT 


,* 

*. .*" 

* YES 


*. .* 
* YES 


**• 


TREATED AS 

EOP2 
************ 


X 
***** 
•OS * 
* A2» 
• • 

*•*• 




MJG045 X 

*****F4********** 

* DELETE * 

* JUMP TRIPLE. * 

* GET FIRST * 

* PSEUDO-CODE * 

* INSTRUCTION * 




X 
**** 

* Bl • 

***• 



*************** 



*****H2********* 
♦COMPILER ERROR 



.* ENO *. 
* OF * 
PSEUDO-CODE 



PSEUDO-CODE 
INSTRUCTION 



*****G5* ********* 
* OUTPUT * 
•PSEUDO-CODE OF * 
.* RIGHT LFNGTH. * 
•GET NFXT PSFUDO* 
♦-CODE INSTRCTN * 



CODE IGNORE 



MJG204 

***** J 3 ********** 
•EXAMINE DEDS £ * 
•GENERATE PSEUOO* 

* -CODE TO CALL »X 
•LIBRARY CONVER-* 

• SI ON ROUTINE * 



PSEUDO-CI1DF 



IN ZINCL FOR 
CONVERSION 
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*****^2 ******* *** 
* GET SCRATCH * 



* SET SCAN = 
*************** 



*****B2 ********** 

* GET FIRST * 

* CONSTANT IN * 



**** 
* A4 * 



*****C1 ********** 



* INTO LOCATION 



***************** 



.*. 






STPTST .*. 


A3 *. 






A4 *. 








■ * *. 








YES .* END OF 


SCAN = 4 
























*. .* 






*. .* 


* YES 






* NO 


X 








***** 








*PD * 








* Al* 






X 


* * 






***t*B4******* 








* 

* GET NEXT 

* CONSTANT IN 

* CHAIN 



*****B5********** 
CHAR TO 



***************** 



*.ANO SCAN .* 



****C3********* 

* * 

* CONVRT * 

*************** 



*****C4********** 

* CHAR STRING * 

* TO CHAR * 

* CONVERSION * 

* * 
***************** 



. . .* 


PICTURED CHAR 


• 


CONVERSION 


* 




x *************** 




X 


* * 




* J3 * 




* * 




**** 






. YES 








C5 *. 






NO 


« TARGET * 




PICTURED 



*****oi**** ****** 



***************** 



*****E1 ********** 

* * 

* SCAN POOL * 

* FOR SIMILAR • 

* ENTRY * 

* * 
***************** 



ALIGNED 

•.AND SCAN 

*.=!.* 



YES .*SINGLE WORD* 



SIMILAR *. YES 



ALIGNED AND .* 



.* UNALIGNED *. NO 



*****G2 ********** 
* CONVRT * 
*-*-*-*-*-*-*-*-* 



***************** 



**************** 



X 






.*. 


ARARD 


F3 «. 






F4 *. 


*****F5********** 










* * 


SOURCE * 


YES 




.♦CONVERSION *. YES 


* ARITH TO * 


INTERNAL 










FORM .* 






*. .* 


* CONVERSION * 










* * 


*. .* 






*. .* 


***************** 


* NO 






* NO 

***• 

* * 
..X* J3 * 

* * 




X 






**** 




.*. 






• *. 


ARBTD 


G3 *. 






G4 *. 


*****G5********** 


*. 






.* *. 


* * 


TARGET * 


YES 




* TARGET *. NO 


* ARITH TO * 












.* 


*. STRING .* 


* CONVERSION * 










* * 


*. .* 








***************** 


* NO 






* YES 





*****H2********** 



* ARY CONSTANT * 

* POOL FROM * 

* TEXT BLOCK * 
***************** 



CHAR STRING * 



***************** 



*****H4**** ****** 

* * 

* ARITH TO * 

* CHAR * 

* CONVERSION * 

* * 
***************** 



* J3 *.X. 

* * .X 

*•** , 

X 
****J3********* 

* * 

* RETURN * 

* • 
*************** 



*****J4********** 



* CONVERSION * 

* * 
***************** 



***• 

* * 

* K4 * 



* ARITHMETIC * 
X* TO ARITH * 

• CONVERSION * 

***************** 
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Table LA. Phase LA Pseudo-Code Scan 



| | Main Process ing| J 
1 Statement or Operation Type j Routine j Subroutines Used | 

L_ _ J. _ x _ _ _ _ J 


r — t — t — — 1 

| Scans transfer vector |SCTV |MV4A, SCINIT | 
^ + + ^ 

| Searches for triple of interest to |SC1, SC2, SC3 |SCUT1, SCUT4, SC200 j 
| user | j | 
^ + + .j 

| Moves input pointer to next triple |SC4, SC5, SC6, |SC200 j 
1 |SC7 | j 
|. + + ., 

| Moves input pointer over JMP triple |SC8 f SC9, SC10A|SC51, MV20 j 
j and pseudo-code | j | 
j. + 1 4 

| Scans triple transfer vector |SACTN |SC20 to SC80 | 

L _ _ jl_ x_ _ „ __ _ _ _ J 
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Table LAI. Phase LA Routine/Subroutine Directory 



r t- 

| Routine/Subroutine j 



Function 



MV1 

MV2 
MV3 

MV3A 

MV4 

MV4A 

SACTN 

SCINIT 

SCTV 

SCUT1 

SCUT4 

SCI 

SC2 

SC3 

SC4 
SC5 

SC6 
SC7 
SC8 



SC9 
SC10 

SC10A 

SC20 to SC80 
SC200 



Moves input text, with symbolic start in PARI and absolute address 
of first byte not to be moved in PAR2. 

Moves input text with symbolic start in PARI; moves count in PAR2. 

Moves generated pseudo-code with absolute start in PARI, and count 
of contiguous text in PAR2. 

Moves generated triples, with parameters as for MV3. 

Moves input text, with absolute start in PARI. 

Moves input text, where preceding output text may be pseudo-code. 

Scans triple transfer vector. 

Initializes input and output text blocks. 

Scans transfer vector. 

Scans triple. 

Adds epilogue to JMP triple by inserting total count in triple and 
moving two register status bytes to the end of the pseudo-code 
block. 

Searches for triple of interest to user as indicated by entries in a 
TRT table. Moves scanned text to output string. 

Moves current triple to output string, increments input pointer and 
searches for triple of interest to user. 

Moves input pointer to next triple, then scans for triple of inter- 
est to user. 

Moves input pointer to next triple, marking input block as WANTED. 

Moves input pointer to next triple, marking input text block as 
FREE. 

Moves input pointer to next triple, with TRT for new triple. 

Moves input pointer to next triple* with TRT for new triple. 

Moves input pointer over JMP triple, and then the triple with the 
following pseudo-code is moved to the output text, the register 
status bytes are updated, and the input pointer is updated to point 
at the first triple following the pseudo-code. The input text block 
is marked as 'wanted.' 

The input text block is marked as FREE, otherwise as for SC8. 

Converts symbolic input text pointer in PARI to absolute, and if the 
text block referenced is no longer the current one, resets the SCAN 
input text parameters. 

As SC8, but the pseudo-code is not moved, and the register status 
bytes are not updated. 

SCAN text housekeeping routines. 

Bumps input text pointer over current triple, calls in next chained 
input block if end of block reached. 
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Table LB. Phase LB Pseudo-Code Initial 



T T" 

| Main Process ing | 
J Routine j 



Statement or Operation Type 



Subroutines Used 



j Scans text for PROCEDURE, BEGIN, JSCAN 
| and ALLOCATE triples | 

j. + . 



|SCINIT, SCI, SC3, SC5 (all in LA), 
JSFSCAN, ENDRTN, MAIN, SCAUTO 



| Scans automatic chain | SCAUTO 
j. + 

| Processes INITIAL attribute die- j MAIN 

j tionary items | 

l jl 



| MAIN 

4 

I CNSTWK 



Table LB1. Phase LB Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



ARRENT (LC) 

CNSTWK 

ENDRTN 

MAIN 

SCAN 

SCAUTO 

SFSCAN 



Declares INITIAL attribute for dynamic arrays. 
Creates initialization triples. 
Releases phase and scratch storage- 
Processes INITIAL attribute dictionary items. 
Scans text for PROCEDURE, BEGIN, and ALLOCATE triples. 
Scans AUTOMATIC chain. 
Scans through second file statements. 
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Table LD. 
r 



Phase LD Pseudo-Code Initial 



■T T" 

| Main Processing | 
Routine I 



Statement or Operation Type 



Subroutines Used 



| Scans the STATIC chain for any | STATIC 

j variable with the INITIAL attribute | 

l J. 



|ENDRTN, ARRENT, CNSTWK,, 
JLOVNAS, STRADD 
.J. 



Table LD1. Phase LD Routine/Subroutine Directory 



r t- 

j Routine/Subroutine | 



Function 



ARRENT 
CNSTWK 
CNVERT 

ENDRTN 
GAA1 
GAC3 
LOVNAS 

STATIC 
STRADD 
ST0006 
ST0088 
ST9999 



Processes the initial value string for arrays. 
Creates constant entries for initial values. 

Converts decimal integer constants used as replication factors to 
fixed binary- 
Releases the phase and scratch storage. 
Scans array initial value string. 
Makes slot for converted constant for arrays. 

Calculates the equivalent length in bits or bytes of a constant for 
variable or adjustable length strings. 

Scans the STATIC chain. 

Addresses elements of structures. 

Locates initial value list. 

Resets initial value entry. 

Makes slot for converted constant for scalars. 
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Table LG. Phase LG Pseudo-Code DO Expansion 
r t 



| Main Processing | 
Statement or Operation Type | Routine | Subroutines Used 
+ + 

Scans text |LG0002 | SCI (LA) 
+ + 

For iterative DO triples, pushes JLG0011 j PSHDWN, SC5 (LA), CVSCAN 
down stack and examines control | | 
variable | | 

_ ___ _ 4. _ _ J. , _ 


_ _ - - -|. _ -j. _ 

Pushes down DO stack | LG0013 j PSHDWN 
+ + 

For iterative DO' and DO* triples, |LG0012 JEXPEVL, POPUP 
pushes up stack and removes top | j 
entry | j 
1 + 

For CV triples, reverts to normal |LG0015 |EXPEVL 
scan j j 
+ + 

For TO -and TO* triples, examines |LG0017 | EXPEVL, TESTOP 
argument and assigns to temporary, j j 
if necessary | | 
+ + 

For BY and BY 1 triples, examines |LG0019 | EXPEVL, TESTOP 
expression and determines signs of j | 
constants; assigns variables to j j 
temporary | j 
1 1 

For WHILE and WHILE' triples, marks JLG0021 j C0DE3 
loop as iterative; generates test | j 

triples | | 
+ + 

DO EQUALS triples, assigns expres- |LG002U |C0DE2, TESTOP 
sion as a temporary; generates codej j 
to control loop if end of specif i- | j 
cation | | 
1 + 

Sets up control variable text in DO j CVSCAN JCVCOPY, PSTYPO, PSTYP1 
stack j j 
+ + 

Generates loop control code | C0DE2 JCVCODE, DICENT, COMPAR, SWITCHP, 

| |LMV3AU, LMV3A5, PSTYPO* PSTYP1 
+ + 

Tests expression result type and | TESTOP |DICCHN, LMV3A5 
assigns to temorary if not constant | j 



I- + + 



I Moves text from DO stack to output | CVCODE 
l J.. 



LMV3AU 
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Table LG1. Phase LG Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



C0DE2 

C0DE3 

COMPAR 

CVCODE 

CVCOPY 

CVSCAN 

DICCHN 

DICENT 

EXPEVL (LH) 

LG0000 

LG0002 

LG0010 

LG0011 

LG0012 

LG0013 
LG0015 
LG0017 

LG0019 

LG0021 

LG0022 

LG0024 

LMV3AU 

LMV3A5 

POPUP 

PSHDWN 

PSTYP0/PSTYP1 

SWITCHP 

TESTOP 



Generates loop control code. 

Generates loop control code for WHILE. 

Generates triples to test upper limit control expression. 

Moves text from DO stack to output. 

Moves input text to DO stack. 

Sets up control variable text in DO block. 

Chains dictionary entries. 

Makes a dictionary entry. 

Analyzes expression to determine result type. 

Initializes phase. 

Scans text. 

When EOP triple encountered, releases scratch storage and passes 
control to next phase. 

For iterative DO triples pushes down stack and examines control 
variable. 

For iterative DO* and DO' triples pushes up stack and removes top 
entry. 

Pushes down DO stack. 

For CV triples reverts to normal scan. 

For TO and TO* triples, examines argument and assigns to temporary 
if necessary. 

For BY and BY* triples, examines expression and determines sign of 
constants. Assigns variables to temporary. 

For WHILE and WHILE* triples, marks loop as iterative and generates 
text triples. 

When WHILE* triple encountered* branches to generate comparison 
triples. 

For DO EQUALS triples, assigns expression to a temporary: generates 
code to control loop if at the end of specification. 

Moves triples to output. 

Moves one triple to output. 

Removes item from DO stack. 

Pushes down DO stack and initializes new stack entry. 

Test pseudo- variable argument type. 

Changes DO stack text markers. 

Tests expression result type and assigns to temporary if not con- 
stant. 



._j 
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Table LS. Phase LS Pseudo-Code Expression Evaluation 

r t t 

Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



Scans text and branches to 
processing routines; marks phase LW 
and releases control to next phase 



LBO 



ARITH, FUNCT, LZZ1, MOVEPC, 
SCAN (LA), STRING* SUBSPT 



-+■ 



Calculates result type and 
generates pseudo-code for + f -, *, 
/, prefix + # prefix -, compare 
operators, and ADD, MULTIPLY, and 
DIVIDE functions 



ARITH, ARITH2 



ADDSTK, ASSIGN, CONVT, DICDES„ 
EXPONT, GENRPD, GETADX, GETFR, 
GETGR, MOVEPC, RELSTK, SETCPX W 
STRING, SWOP 



Calculates result type for string 
operators 



STRING 



LZZ1, MOVEPC. STALRG 



Inserts symbolic register in sub- 
script triple and stacks result 



SUBSPT 



ADDSTK, DICDES 



-H 



Inserts workspace description in 
TMPD triples after function, and 
stacks result. Stacks arguments 
for ADD, MULTIPLY, and DIVIDE func- 
tions. Adds pseudo-variable mark- 
ers to stack 



FUNCT 



ADDSTK, ARITH, DICDES, GETFR, 
GETGR, SCAN 



Calculates results types and 
generates pseudo-code for ** opera- 
tor. Generates calling sequences 
to library subroutines for complex 
arithmetic 



EXPONT 



ADDSTK, ARITH2, CONVT, GETADX 
MOVEPC, STALRG., SWOP 



Calculates target type and 
generates assignment triple for 
conversion; sets dictionary entries 
for constants 



CONVT 



ADDSTK, ASSIGN, GETFR, MOVEPC, 
STALRG 



+- 



Interchanges operands; optionally 
loads first operand 



SWOP 



GETADX, GETFR, GETGR 



•+- 



Obtains free floating or fixed 
arithmetic register; stores it, if 
necessary 



GETFR, GETGR 



GETADX, STALRG 



Adds items to, and releases items 
from intermediate result stack 



ADDSTK, RELSTK 



None 



Generates calling sequence for 
complex * and / operators, super- 
vises complex arithmetic 



SETCPX 



EXPONT, GETADX 



Inserts TMPD triples after zero 
operands 



LZZ1 



RELSTK, SCAN 
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Table LSI. Phase LS Routine/Subroutine Directory 



r T- 

j Routine/Subroutine | 



Function 



ADDSTK 


(LT) 




ARITH/ARITH2 


(LT) 


ASSIGN 






CONST 






CONVT 






DICDES 






EOP2 






EXPONT 


(LU) 





Adds items to intermediate result stack. 

Calculate result type and generate code for +, -, *, /„ prefix + „ 
prefix -, compare operators, and ADD,, MULTIPLY, and DIVIDE func- 
tions . 

Generates an assignment triple and TMPD in the output text. 

Sets up dictionary entry for constant operand. 

Calculates target type and generates assignment triple for conver- 
sion. 

Constructs operand description from dictionary entry. 

Marks phases wanted/ not wanted and releases control. 

Calculates result type and generates pseudo-code for ** operator, 
and generates calling sequence to Library subroutines for complex 
arithmetic. 

Inserts workspace description in TMPD triples after function, and 
stacks result. 

Inserts workspace description in TMPD triples after function, and 
stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE func- 
tions. Adds pseudo-variable markers to stack. 

Generates fixed binary pseudo-code. 

Generates pseudo-code for packed decimal operations. 

Sets up address of pseudo-code instruction. 

Obtain free floating or fixed arithmetic register; store it, if 
necessary. 

Scans text and branches to processing routines. 

Tests for operand conversions and constants. 

Generates floating pseudo-code. 

Inserts TMPD triples after zero operands . 

Moves pseudo-code to output text. 

Adds pseudo- variable marker to stack. 

Releases items from intermediate result stack. 

Generates calling sequence for complex * and / operators; supervises 
complex arithmetic. 

Generates pseudo-code to store all arithmetic registers currently in 
use. 

Calculates result types for string operators. 

Inserts symbolic register in subscript triple and puts result in 
stack. 

Interchanges operands and optionally loads first operand. 



FCTDES 
FUNCT 

FXC1 (LT) 
GENRPD 
GETADX (LT) 
GETFR/GETGR (LT) 

LBO 

LBE21 (LT) 

LBFL1 (LT) 

LZZ1 

MOVEPC 

PSI 

RELSTK (LT) 

SETCPX (LU) 

STALRG 

STRING 
SUBSPT 

SWOP 
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Table LV. 

r 



Phase LV Pseudo-Code String Utilities 



| Main Processing! 

Statement or Operation Type j Routine j Subroutines Used 
+ + 

Initializes module; releases con- | STRUTO | None 
trol to next module \ j 
x x 

Converts data item to string; cal- j STRUT1 | SCAN (LA), STRUT2 
culates string length | j 
+ + 

Produces a string dope vector des- | STRUT2 | None 

cription from a standard string | | 

description j j 

jl x 



Table LV1. Phase LV Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



LSUT17 

LSUT22 

LSUT26 

LSUT27 

STUTO 

STRUT1 

STRUT2 

ZSTUT1 
ZSTUT2 



Tests whether string length is greater than 256, and if necessary 
generates fixed length calling sequence. 

Tests whether string dope vector result is required. 

Generates any assignment and TMPD triples. 

Sets up assignment and TMPD triples. 

Initializes module; releases control to next module. 

Converts data item to string type; calculates string length. 

Produces string dope vector description from standard string des- 
cription. 

Transfer vector to STRUT1. 

Transfer vector to STRUT2. 
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Table LW. Phase LW Pseudo-code String Handling 



Statement or Operation Type 



Main Process 
Routine 



mg 



Subroutines Used 



Initializes phase, scans text and 
branches to processing routines; 
releases control to next phase 



BEGIN 



FUNPT, SCAN (LA), STROP, 
SUBSPT, TMPDT 



Processes TMPD triples. Arithmetic 
type TMPDs are ignored- String 
TMPDs are replaced by the top item 
from the string stack 



TMPDT 



GETMPD, MOVSEL, RELSTK, SCAN (LA) 
SETMPD 



Processes function and function 
argument triples. Arithmetic type 
functions are ignored. Dictionary 
entries are created for the results 
of string type functions. A 
library calling sequence is gener- 
ated for the BOOL function using 
the mechanism for packed bit opera- 
tions. The result descriptions are 
added to the string stack 



FUNT 



ADDSTK, DICDES, GETADS* GETMPD, 
MOVEPC, RELSTK, SCAN (LA), SETMPD, 
STROP 



Processes subscript triples. 
Arithmetic type subscripts are 
ignored. A symbolic register or 
workspace offset is added to string 
type subscript triples and the 
string description is added to the 
string stack 



SUBSPT 



ADDSTK, DICDES, SBGNOR, SCAN (LA) 



Processes string operations CONCAT, 
AND, OR, NOT and comparisons with 
string type operands. For simple 
cases, in-line pseudo-code is gen- 
erated; otherwise calling sequences 
to the library are generated. The 
results are added to the string 
stack. 



STROP 



ADDSTK, DICDES, GETADS, GETADX, 
GETMPD, MOVEPC, MOVSEL, RELSTK, 
SCAN, STRUT (LV) 
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Table LW1. Phase LW Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



h 



■+- 



ADDSTK 

BEGIN 

DICDES (LX) 

FUNPT 

FUNT 

GETADS/GETADX 

GETMPD 

LB 

LIB1 

LIL2 

LIL3 

LIL6 

LIL8 

Lll 

MOVE PC 

MOVSEL 

RELSTK 

SBGNOR 

SETMPD 

STROP 

SUBSPT 

TMPDT 

T5 



(LX) 



Adds strings to the intermediate string result stack. 

Main controlling routine for phase. 

Constructs operand description from dictionary entry. 

Processes result returned by functions. 

Processes funtion and function argument triples. 

Construct address part of pseudo-code instruction. 

Constructs operand description from TMPD triples. 

Terminates phase at end of program. 

Generates Library calls for string operations. 

Generates pseudo-code for NOT operation. 

Generates pseudo-code for concatenation operation. 

Generates pseudo-code for comparison operation. 

Generates pseudo-code for AND/OR operation. 

Generates pseudo-code to convert to string. 

Moves pseudo-code from buffer to output text. 

Moves SELL triples to output text. 

Removes strings from the intermediate string result stack. 

Gets next symbolic register. 

Constructs TMPD triples from description. 

Processes string operations CONCAT, AND, OR, NOT, and comparisons 
with string type operands. 

Processes subscript triples. 

Processes TMPD triples. 

Sets flags for triple types. 
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Table MB. Phase MB Pseudo-code Pseudo-Variables 
r t- 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans source text 



MB0001 



SCI (LA) 



PS I operator; starts new entry in 
stack for pseudo- variable 



MB0011 



SWITCH 



PSI' operator; completes stack 
entry and generates code for data 
list items 



MB0012 



SWITCH, TARGET 



Assign completes stack and rescans 
group of assignments, putting tar- 
get descriptions out in correct 
sequence; generates code for 
pseudo-variables in stack 



MB0013 



DRFTMP, MMV3A5, MVTMPD, OUTMPD, 
TARGET 



Multiple assign; places only target 
descriptors in stack 



MB0014 



MVTMPD 



+- 



Constructs pseudo-variable stack 
entry 



MB0020 



MVTMPD 



Places temporary descriptor in 
output 



OUTMPD 



MMV3A5 



Gets temporary workspace for 
pseudo-variable, if necessary 



TARGET 



GETWKS 
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Table MB1. Phase MB Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Fu net ion 



DRFTMP 
GETWKS 
MB0001 
MB0004 
MB0010 

MB0011 
MB0012 

MB0013 

MB0014 
MB0020 
MB1310 
MB1311 
MB1316 
MB1318 
MB1320 
MMV3A5 
MVTMPD 
OUTMPD 
SWITCH 
TARGET 



Makes temporary descriptor from a dictionary reference. 
Obtains workspace to accommodate a variable of given type- 
Scans source text. 
Multi-switch for triples of interest. 

On reaching end-of-text marker* releases remaining block, and 
releases control of phase. 

PSI operator; starts new entry in stack for pseudo-variable. 

PSI' operator; completes stack entry and generates code for data 
list items. 

ASSIGN; completes stack and rescan group of assignments* putting 
target descriptions out in correct sequence, generates code for 
pseudo-variable in stack. 

Multiple ASSIGN; places any target descriptors in stack. 
Constructs pseudo-variable stack entry. 
Resets input pointer to start of sequence of ASSIGNS. 
Rescans ASSIGNS and associated TMPDS from stack in reverse order- 
Tests for end of stack. 
Tests for pseudo-varaible TMPD. 
Generates code for pseudo-variable. 
Moves one triple to output. 
Places temporary descriptor in stack. 
Places temporary descriptor in output string. 
Changes scanning table. 
Obtains temporary workspace for pseudo- variable, if necessary. 
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Table MG. 
r 



Phase MG Pseudo-Code In-Line Functions 1 



|Main Processing] | 

Statement or Operation Type j Routine | Subroutines Used j 
_ _ _ J. _ .!___,._ «. j 


Scans text j PHASE LA (SCAN) | None j 
+ 1 ., 

Builds up function stack | LFARIN |None j 
__ j. _ _ _ j. _ _ _ _ «. _j 


Builds up argument stack | LFCOM | None j 
+ + ^ 

Move generated code to output |LFMOVE |MV3 (LA) | 
block. II 1 

_ J. _ _ x _ _ _ _J 


Generates in-line code |LFE0F2 |ABBFLL, ABBFLS, ABSFB, ABSFD, j 

| |ALL0C2, CEILB, CEILD, CEILL, j 
| j CEILS, CMPLXB, CMPLXD, CMPLXL, j 
| jCNASTR, CNVINT, CONJGB, CONJGD, j 
| ICONJGL, CONJGS, ERRFUN, FLOORB, | 
| JFLOORD,, FLOORL, FLOORS, IMAGB, j 
| |IMAGFD, IMAGL, IMAGS, REALB, j 
j JREALFD, REALL, REALS, SBGTNR, j 
| (TRUNCB, TRUNCD, TRUNCL, TRUNCS, | 
| JUNSPEC, UTTEMP | 



Table MG1. Phase MG Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



|. + H 

ABBFLL I Generates in-line code for ABS function with long floating-point 

argument. 

ABBFLS I Generates in-line code for ABS function with short floating-point 

argument. 

ABSFB | Generates in-line code for ABS function with fixed binary argument. 

ABSFD I Generates in-line code for ABS function with fixed decimal argument. 

ALL0C2 I Generates in-line code for ALLOCATION function. 

CEILB (MH) | Generates in-line code for the CEIL function with fixed binary argu- 
ment. 

CEILD (MH) | Generates in-line code for the CEIL function with fixed decimal 

argument. 

CEILL (MH) | Generates in-line code for CEIL function with long floating-point 

argument. 

CEILS (MH) j Generates in-line code for the CEIL function with short floating- 
point argument. 

CMPLXB [Generates in-line code for COMPLEX function with fixed binary 

argument. 

CMPLXD I Generates in-line code for COMPLEX function with fixed decimal argu- 

ment. 

CMPLXL I Generates in-line code for COMPLEX function with long f loa ting- point | 

argument. 

CNASTr (Constructs assignment triple and associated TMPDS. 

CNVINT | Converts a decimal integer constant to fixed binary. 

L J. j 
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Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 

Function 



r t 

| Routine/Subroutine | 



CONJGB 
CONJGD 

CONJGL 

CONJGS 

ERRFUN 
FLOORB (MH) 

FLOORD (MH) 

FLOORL (MH) 

FLOORS (MH) 

IMAGB 
IMAGFD 

IMAGL 

IMAGS 

LFARIN 

LFARI1 

LFCOM 

LFDR 

LFEOF2 

LFEOF3 

LFIGN 
LFMOVE 
LFSPEC 
REALB 



Generates code for the CONJG function with fixed binary arguments. 

Generates in-line code for the CONJG function with fixed decimal 
arguments 

Generates in-line code for the CONJG function with long floating- 
point arguments. 

Generates in-line code for the CONJG function with short floating- 
point arguments. 

Aborts if Phase IM discovers an error in a function. 

Generates in-line code for the FLOOR function with fixed binary 
argument. 

Generates in-line code for the FLOOR function with fixed decimal 
argument. 

Generates in-line code for the FLOOR function with long floating- 
point argument. 

Generates in-line code for the FLOOR function with short floating- 
point argument. 

Generates in-line code for IMA3 function with fixed binary argument. 

Generates in-line code for IMAG function with fixed decimal 
argument. 

Generates in-line code for IMAG function with long floating-point 
argument. 

Generates in-line code for IMAG function with short floating-point 
argument. 

Builds up function stack. 

Continues scan for in-line functions. 

Builds up argument stack. 

Unpacks dictionary reference of argument when argument triple found. 

[Calls subroutines to generate in-line code. 

Depending on start of argument list, branches to produce in-line 
code. 

Removes triple from text if inside an in-line function. 

Moves generated code to output block. 

Branches if IGNORE triple or not an in-line function. 

Generates in-line code for REAL function with fixed binary argument. 
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Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 

Function 



r T" 

| Routine/Subroutine | 



j. + 4 

REALFD | Generate in-line code for REAL function with fixed decimal argument. 

REALL I Generate in-line code for REAL function with long floating-point 

argument. 



REALS 

SBGTNR 
TRUNCB (MH) 

TRUNCD (MH) 

TRUNCL (MH) 

TRUNCS (MH) 

UNSPEC (MH) 
UTTEMP 



Generates in-line code for REAL function with short floating-point 
argument . 

Get next available symbolic register. 

Generates in-line code for the function TRUNC with fixed binary 
argument. 

Generates in-line code for the TRUNC function with fixed decimal 
argument. 

Generates in-line code for the TRUNC function with long floating- 
point arguments. 

Generates in-line code for the TRUNC function with short floating- 
point argument. 

Generates in-line code for the UNSPEC function. 

Gets a required amount of temporary work space. 



l x J 
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Table MI. 
r 



Phase MI Pseudo-Code In- Line Functions 2 



■T T" 

jMain Processing | 
I Routine J 



Statement or Operation Type 



Subroutines Used 



| Scans text 



I" 

| Builds up function stack 

j. 

| Builds up argument stack 



| PHASE LA (SCAN) j None 



j LPARIN 

■+ 

I LFCOM 



j None 

■+ 

| None 



j. + 

| Move generated code to output block) LFMOVE 
j. + 

| Generates in-line code | LFEOF2 



JMV3 (LA) 

+ 

JMAXB, MAXD, MAXL, MAXS, MINB t MIND, 
|MINL, WINS,, MODB, MODD„ MODL, MODS, 
|ROUNDB t ROUNDD, ROUNDL. ROUNDS 

.x ___. 



Table Mil. Phase MI Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



LFARIN 
LFCOM 
LFE0F2 
LFMOVE 

MAXB/MINB (MJ) 
MAXD/MIND (MJ) 

MAXL/MINL (MJ) 

MAXS/MINS (MJ) 

MODB (MJ) 
MODD (MJ) 

MODL (MJ) 

MODS (MJ) 

ROUNDB 
ROUNDD 

ROUNDL 

ROUNDS 



Builds up function stack. 
Builds up argument stack. 

Calls subroutines to generate in-line code. 
Moves generated code to output block. 

Generate code for MAX/MIN function with fixed binary arguments- 
Generate in-line code for MAX/MIN function with fixed decimal 
arguments . 

Generate in-line code for MAX/MIN function with long floating-point 
arguments . 

Generate in-line code for MAX/MIN function with short floating-point 
arguments. 

Generates in-line code for MOD function with fixed binary arguments. 

Generates in-line code for MOD function with fixed decimal argu- 
ments . 

Generates in-line code for MOD function with long floating-point 
arguments . 

Generates in-line code for MOD function with short floating-point 
arguments . 

Generate in-line code for ROUND function with fixed binary argument. 

Generates in-line code for ROUND function with fixed decimal argu- 
ment. 

Generate in-line code for ROUND function with long floating-point 
arguments. 

Generate in-line code for ROUND function with short floating-point 
arguments. 



._j 
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Table MK. Phase MK Pseudo-Code In-Line Functions 3 



T T" 

j Main Processing) 
Routine ! 



Statement or Operation Type 



Subroutines Used 



Scans text 

Builds up function stack 



j PHASE LA (SCAN) | None 
. + + 

| LFARIN | None 
. + + 



Builds up argument stack 



LFCOM 



None 



Move generated code to output block | LFMOVE 



JMV3 (LA) 



Generates in-line code 



LFE0F2 



| DIM, HBOUND, LBOUND, LENGT, SIGNFB, 
|SIGNFD f SIGNL, SIGNS 
-A 



Table MK1. Phase MK Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



H 



DIM 

HBOUND 

LBOUND 

LENGT 

LFARIN 

LFCOM 

LFE0F2 

LFMOVE 

SIGNFB 

SIGNFD 

SIGNL 

SIGNS 



Generates code for DIM function. 

Generates code for HBOUND function. 

Generates code for LBOUND function. 

Generates code for LENGTH function. 

Builds up function stack. 

Builds up argument stack. 

Calls subroutines to generate in-line code. 

Moves generated code to output block. 

Generates code for SIGN function with fixed binary argument, 

Generates code for SIGN function with fixed decimal argument. 

Generates code for SIGN function with short floating point argument. 

Generates code for SIGN function with short floating point argument. 
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Table ML. 

r 



Phase ML Pseudo-Code Calls and Functions 



■T T" 

|Main Processing! 
J Routine | 



Statement or Operation Type 



Subroutines Used 



j Scans text 

f 

1 Identifies argument of procedure 

| invocation 

j. + 

| Selects generic built-in function | FPBIF 
j. + 

| Selects PL/I generic entry name |FPGAR 

u jl 



j PHASE LA (SCAN) j None 

. + + 

| FPFNAR | None 

I I 



FPARD1 



FPARD2, FPARD3, GNSECO 



Table ML1. Phase ML Routine/Subroutine Directory 



r t- 

j Routine/Subroutinr | 



Function 



h 



4- 



FPA01 
FPARD1 

FPARD2 

FPARD3 

FPBIF 

FPEPCO 

FPFNAR 

FPGAR 

GNFM2 

GNSECO 



Scans for next argument. 

Obtains parameter descriptions relating to built-in function argu- 
ments. 

Obtains successive parameter descriptions relating to the entry 
description of a PL/I generic procedure. 

Obtains and stacks full parameter description of a PL/I generic 
procedure. 

Selects generic built-in functions. 

Constructs an entry parameter. 

Identifies arguments of procedure invocations. 

Selects PL/I generic entry name. 

Replaces generic reference testing for uniqueness. 

Makes entry in stack of parameter descriptions. 



Table MM. Phase MM Pseudo-Code Calls and Functions 



j statement or Operation Type 


|Main Process 
j Routine 
-4- - 


ing| 
1 

-L 


Subroutines Used j 


j Scans text 


T 

| PHASE LA 
_i 


(SCAN) |None 
_ ± 




j Scans list, counts arguments and 
j identifies storage class 


| CFCALL 
1 




| CFARID, 

| CFMVCD 
_ i _ 


CFFBIR,, CFFDVS* CFMVTR, | 


jRescans list and generates calling 
j sequence for Library routine 


| CFCFSS 
1 




| CFARHA, 
j CFMVCD, 


CFCALP, CFBIFH. CFMLBR W | 
CFNEST, UTTMPW, CFALFl j 
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Table MM1. Phase MM Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



BEGIN 

CFALF1 (MO) 
CFARHA 
CFARID (MO) 
CFBIFH 

CFB04 

CFB021 

CFB036 

CFCALL 

CFCALP 

CFC03C 
CFCFSS 
CFEXIT 
CFFBIR 

CFFDVS (MN) 

CFL06 
CFL043 
CFMLBR (MN) 

CFMVCD 
CFMVTR 
CFNEST 
CFY007 
UTTMPW (MN) 



Initializes phase. 

Places address of invoked routine at the head of its argument list. 

Generates calling sequence. 

Counts arguments and sets STATIC/AUTO flag. 

Further built-in function identification with relevant parameter 
setting. 

Restores previous environment. 
Tests nature of function found- 
Restores pointer to start of invocation- 
Scans lists, counts arguments, identifies storage class. 

Completes calling sequence and* if necessary, generates code to 
initialize dope vector. 

Tests for nested function. 

Rescans list and generates calling sequence for Library routine- 
Transfer vector after first scan. 

Identifies built-in functions, sets parameters for calling sequence 
generation. 

Reserves output text area for generation of code to initialize dope 
vector when a function returns a string. 

Generates code to set up result dope vector- 

Generates code to place result address in argument list. 

Generates code to move a skeleton parameter list which is greater 
than 256 bytes. 

Generates pseudo-code into the output text block. 

Generates triple into the output text block. 

Handles a nested situation 

Sets parameters to produce special calling sequences. 

Allocates one word of workspace- 
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Table MP. 
r 



Phase MP Pseudo-Code BUY Reorder 



■T T" 

|Main Process ing| 
Routine 



Statement or Operation Type 



Subroutines Used 



SCAN 



| Main scan routine for phase 

j. + 

(Rearranges BUY and SELL statements |MPSTRT 
l j. 



MPSTRT 



ZDRFAB, ZTXTRF,, ZUERR 



Table MP1. Phase MP Routine/Subroutine Directory 



r T* 

| Routine/Subroutine j 



Function 



ADDSEL 

MPEND 

MPSTRT 

MP3 
MP4 
MP4A 
MP 8 

MP23 

MP26 

MP27 

MP28 

MP29 

MP30 

MP31 

MP86 

MPS 7 

MP88 2 

MP887 

SCAN 

ZDRFAB 

ZTXTRF 

ZUERR 



Adds SELL dictionary reference to SELL list if not already there. 

Returns to compiler control at end of phase. 

Main controlling routine for rearranging BUY and SELL statements 
involved in obtaining VDAs for adjustable length string temporaries. 

Processes EOP triple. Releases control of phase. 

Processes BUYS triple. 

Processes BUYX triple. 

Continues text scan if not string or arithmetic data, or not struc- 
ture. 

Continues scan of text. 

Processes BUYS triple. 

Processes BUY ASSIGN triple. 

Processes BUY triple. 

Processes SUBSCRIPT triple. 

Processes ASSIGN triple. 

Accesses top stack entry. 

Tests triple for BUYX, and processes. 

Scans for BUYS, BUY, and SELL triples. 

Processes SELL triple. 

Generates SELL triples in OUTPUT from SELL list. 

General scan routine. 

Converts dictionary reference to absolute address. 

Changes absolute address to a text reference. 

Makes error message entries. 
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Table MS. Phase MS Pseudo-Code Subscripts 















J Main Process 


ing| | 


| Statement or Operation 


Type 


| Routine 
j. _ 


| Subroutines Used | 
— 4- _ ____ _J 






T - — - 


T ____ -^ 


| Scans text 




|SBSCAN 
-4- 


j None | 

x _ _ _ _ 1 






T 


T 1 


| Calculates element offset 




| SBSTIH 

1 

1 


|SBASS, SBCOBI, SBGNOR, SBMVCD, | 
|SBNEST, SBSUBP, SBSUDV„ SBXOP, | 
| UTTEMP | 






4_ 


X _ _ 1 






T 


t 1 


| Checks subscript range 




| SBSBRN 


| None | 











Table MSI. Phase MS Routine/Subroutine Directory 



r t- 

I Routine/Subroutinel 



Function 



l-- 



SBASS 

SBCOBI (MT) 
SBERR (MT) 
SBGNOR (MT) 
SBMVCD (MT) 
SBNEST (MT) 
SBSBRN (MT) 
SBSCAN 
SBSTIH 
SBSUBI 
SBSUBP (MT) 
SBSCJDV 

SBS05 
SBS06 
SBS002 
SBS029 
SBTRID 
SBXOP (MT) 
SCAN 
UTTEMP (MT) 



Updates scan pointer over an assignment. 

Converts subscript to binary integer. 

Puts error message into dictionary. 

Allocates an odd symbolic register. 

Generates pseudo-code and moves it into output text block. 

Handles nested subscript situation. 

Checks subscript range. 

Branches to LA for scan. 

Calculates element offset. 

Saves array name. 

Handles end of subscript list. 

Generates code to set up the dope vector of an array of adjustable 
strings. 

Generates code to multiply subscript by multiplier. 

Compiles code to convert to fixed binary. 

Checks for occurrence of subscript. 

Generates code to multiply subscript by 4 or 8. 

Scans for comma, subscript prime, or subscript triple. 

Handles special index feature. 

Controlling scan of text. 

Allocates workspace. 
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Table NA. 


Phase NA Pseudo-Code Branches, ON, Returns 






















~ ~ 1 






|Main Processing | 








| Statement or Operation Type 


j Routine 




Subroutines 


Used | 






-1- - - 




4- - 












T 




T 








| Initializes text block 


j NAINIT 




jSCINIT 


(LA) 










± 




4. 
















T 








| Scans text for next triple of 


|NASC1, 


NASC2, 


| SCI, SC2, SC3 


(all in 


LA) | 


| interest to user 


| NASC3 
















4.__ ____ 




















T- " 








| Processes 


STOP statements 


|STOP 
4. 




| NAUT1 
4. 












T 




T — 








| Processes 


EXIT statements 


|EXIT 




| NAUT1 
4. 
















T 








| Processes 


IF statements 


|IF 
-4- 




| NAUTD, 
4. 


NAUT16, 


NAUT21 


, ZSTUTl | 






T 




T — 








| Processes 


ON statements 


|0N 
4- - 




| NAUTD, 
4_ . 


NAUT6, 


NAUT16, 


SC5 (LA) | 






T 




T 








| Produces Library call at end of 


|PROCP f 


BEGINP 


| NAUT1 








| each PROCEDURE or BEGIN block in 














| source text 


















-I— 




4 












T 




T 








| Processes 


RETURN statements 


| RETURN 
4- 




J NAUT1 
4 ___ 












1 




T 








| Processes 


function RETURN state- 


|NA3002 




| NAUTB, 


NAUTCA,, 


NAUT1, 


NAUT12 | 


| ments for 


one data type 


4— 




4 












T 




T — 








| Processes 


function RETURN state- 


|NA3013 




| NAUTA, 


NAUTB, 


NAUTCA, 


NAUTD, NAUTF, 1 


| ments for 


more than one data type 






| NAUT1, 


NAUT7, 


NAUT8, NAUT9, NAUT11, | 










|NAUT12 












± 




L _ 












T 




r 








| Processes 


GO TO statements 


| GOTO 

_± 




| NAUTD 
4 












T 




T 








| Processes 


GOOB statements 


| GOOB 




| NAUT5 , 
_j 


NAUTD, 


NAUT16, 


SC5 ( LA) | 


















| Processes 


SIGNAL statements 


| SIGNAL 
-+ 




| NAUTD, 
INAUTIO, 
-+ 


NAUT6, 
NAUT21 


NAUT16, 


NAUT8, j 



Processes REVERT statements 



REVERT 



(NAUTD, SC5 (LA) 



L X i J 

Table NA1. Phase NA Routine/Subroutine Directory 



r t- 

j Routine/Subroutine | 



Function 



h 



EXIT 

GOOB 

GOTO 

IF 

NAINIT 

NASC1/NASC2/NASC3 

NAUTA 

NAUTB 
NAUTCA 
NAUTD 
NAUTF 



Processes EXIT statements. 

Processes GOOB statements. 

Processes GO TO statements. 

Processes IF Statements. 

Initializes text blocks. 

Scan text for next triple of interest to user. 

Generates pseudo-code to test switch value at RETURN (function 
value) statement for more than one data type. 

Generates assignment triple to RETURN function result. 

Generates assignment triple set up by NAUTB. 

Generates indicated pseudo-code. 

Generates pseudo-code to branch to EQU value. 
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Table NA1. Phase NA Routine/Subroutine Directory (cont'd) 

Function 



r t- 

J Routine/Subroutine | 



I" 



NAUT1 
NAUT2 

NAUT5 
NAUT6 
NAUT7 

NAUT8 

NAUT9 

NAUTll 

NAUT12 

NAUT16 

NAUT17 
NAUT18 
NAUT21 

NA1100 

NA11U0 

NA3002 

NA3005 

NA3013 

NA8003 

NA8010 

NA8012 

ON 

PROCP/BEGINP 

RETURN 

REVERT 

SIGNAL 

STOP 

ZSTUT1 



Generates call to indicated library routine. 

Moves indicated pseudo-code, deletes current triple, continues text 
scan. 

Makes dictionary entry for indicated library routine. 

Updates current symbolic register value. 

On entry, register BR points at an entry label dictionary entry. On 
normal exit from the routine, register BR points at the next label 
dictionary entry. Abnormal exit indicates that there are no further 
labels on the current PROCEDURE or ENTRY statement. 

Bump EQU* value for branch pseudo-code item. 

Bump return switch value to be used for current entry label. 

For current entry label, generate appropriate EQU* pseudo-code item. 

Converts current label dictionary reference to an absolute address. 

Converts dictionary reference of triple second operand to absolute 
address, loads address into register BR. 

Makes dictionary entry for maximum negative number. 

Makes indicated dictionary entry. 

Generates pseudo-code to compare source bit string, making library 
comparison routine dictionary entry, if necessary. 

Tests for SNAP. 

Using NAUTD, generates code for ON-units. 

Processes function RETURN statements for one data type. 

Outputs assignment triple. 

Processes function RETURN statements for more than one data type. 

Generates pseudo-code for branch and mask, labels. 

Converts ID to bit- string. 

Outputs pseudo-code. Compares bit-string to zero. 

Processes ON statements. 

Produce Library call at end of each procedure in source text. 

Processes RETURN statements. 

Processes REVERT statements. 

Processes SIGNAL statements. 

Processes STOP statements. 

String utility in Phase LV to provide a dope vector for a specified 
string. 
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Table NG. Phase NG Pseudo-Code Operating System Services 



T T" 

| Main Processing | 
I Routine 



Statement or Operation Type 



Subroutines Used 



M 
I- 
| Processes DISPLAY triples 

I 

L 



Processes DELAY triples 



DLAY 



|CALIB, INTEG, SCAN (LA) 
4 

JCALIB, CHAR, ENDLST, 
| SCAN (LA) f STORAD 
.JL 



DSPY 



Table NG1. Phase NG Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



CALIB 

CHAR 

DLAY 

DSPY 

DSPY3 

DSPY4 

DSPY10 

ENDLST 

INTEG 

NGO 

STORAD 



Generates part of calling sequence and makes dictionary entry for 
Library routine. 

Converts a given argument to character string. 
Processes DELAY triples. 
Processes DISPLAY triples. 
Tests that operand is character variable. 
Makes dictionary entry for parameter list. 
Scans for REPLY option. 

Completes parameter list and makes dictionary entry for it- 
Converts a given argument to an integer. 
Scans to next triple. 
Stores an address in a parameter list. 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Initialize Phase NJ by calling in 
block NK and initializing SCAN 
utility 



STRTNJ 



ZLOADW (AA), SCINIT (LA), SCI (LA) 



Initializes switches and flags to 
indicate start of new statement. 
Determines RECORD-oriented I/O verb 
and goes to appropriate routine 



NUSTAT 



TXTEST 



-+ 



Establishes READ code as 
REQUEST_CODE and parameter list 
size, accordingly 



READ 



SCRHOP 



Indicates compiler error since 
deferred feature was not caught by 
earlier phase 



DEFER 



None 



Establishes REWRITE code as 
REQUEST CODE 



RE WRIT 



SCRHOP 



Establishes WRITE code as 
REQUEST CODE 



WRITE 



SCRHOP 



Establishes DELETE code as 
REQUEST CODE 



DELETE 



SCRHOP 



Establishes UNLOCK code as 
REQUEST_CODE (not implemented in 
second version) 



UNLOCK 



None 



Gets next triple of interest, 
converts to internal code and sel- 
ects the appropriate routine to 
process it 



SCNOPT 



SC3 (LA), TXTEST, SCAN01, CMPERR 
TXTERR,, Z ABORT (AA) 



Processes FILE option of RECORD- 
oriented I/O by placing dictionary 
reference of FILE Declare DCB in 
the appropriate slot of the param- 
eter list. The parameter list is 
in STATIC if file constant, WORK- 
SPACE if file parameter 



FILOPT 



TXTARG, DYNMPL, LAONLY, STDROP,, 
CMPERR, TXTERR, WRKSPC. MVPSCD. 
ZTXTRF (LA), SYMREG, MV3 (LA) 



+• 



Establishes the record descriptor 
vector (RDV) in the RECORD-oriented 
I/O parameter list from the data 
variable referred to in the INTO or 
FROM RECORD-oriented I/O option. 
The routine assumes the RDV dic- 
tionary entry to have been pre- 
viously constructed, except for 
CONTROLLED variables. In these two 
cases, the subroutine CRDV- 
controlled RDV is invoked to create 
the appropriate RDV. If the 
variable is static, the RDV is 
placed in the STATIC parameter 
list; otherwise, it is placed in 
the appropriate slot of the param- 
eter list in the statement's WORK- 
SPACE. 



INTFRM 



TXTARG, CMPERR, DYNMPL, LAONLY, 
STDROP, LAOSM1, CRDV, TXTERR, 
ZABORT (AA) , WRKSPC, MVPSCD, TXTRF, 
SYMREG, ZDRFAB (AA), CALLIB, 
ZDICRF (AA) , REFRDV 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Processes KEYTO option of RECORD- 
oriented I/O by verifying that its 
argument is a character string, 
then placing it in the appropriate 
parameter list slot, which may be 
in STATIC or WORKSPACE 



KYTOPT 



TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUT2 (STRUT2 in 
LV) , LAOSM2, LAOSMl, TXTERR, 
ZDRFAB (AA), SC5 (LA),, WRKSPC, 
MVPSCD, MV3 (LA), SYMREG 



4- 



Processes the KEY or KEYFROM option 
of RECORD-oriented I/O by 
converting the argument to a char- 
acter string if it is not already a 
character string and placing the 
result in the appropriate parameter 
list slot; this is either in STATIC 
or WORKSPACE 



KEYOPT 



TXTARG, SCALAR* DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUT1 (STRUT1 in 
LV), LA0SM1, LA0SM2, TMPSEL, TXTERR 



-+- 



Processes the IGNORE option of 
RECORD-oriented I/O by first 
checking that the argument is a 
scalar and then converting to a 
binary fixed integer if it is not 
already a binary fixed integer. 
The address of the argument is 
placed in the appropriate parameter 
list slot in STATIC or WORKSPACE 



IGNOPT 



TXTARG, SCALAR, CINTEG, DYNMPL, 

LAONLY, STDROP, MVPSCD, WRKSPC, 

MVTRPL, LAOSMl, ZDRFAB (AA) , 

CMPERR, TMPREF, NXTMPD, MV3A (LA), 

WRKSPC, SYMREG, MV3 (LA) 



-+- 



Processes the event option of 
RECORD-oriented I/O by checking 
that the argument is a scalar EVENT 
variable and placing its address in 
the appropriate parameter list 
slot. The parameter list is either 
in STATIC or WORKSPACE, depending 
upon the storage class of the argu- 
ment. 



EVTOPT 
(not imple- 
mented in 
second version) 



TXTARG, DYNMPL, LAONLY, STDROP, 
NXTMPD, TMPREF, TXTERR, WRKSPC 
MVPSCD, ZTXTRF (LA), SYMREG, 
MV3 (LA) 



+" 



At end of I/O statement, places 
REQUEST_CODE (i.e. IODEF) in sta- 
tic constant chain, puts STATIC 
parameter list in STATIC chain. 
Creates external Library calling 
sequence for RECORD-oriented I/O 
statement as follows : 



EPRM 

LA 1, PARM. LIST 

L 15, RECORD. 10. LIBRARY. ROUT 

BALR 14 ,15 

EPRM 



If there is a WORKSPACE parameter 
list, updates MVC or parameter list 
from STATIC to WORKSPACE. Gener- 
ates any SELL triples accumulated 
throughout statement on SELL chain. 
Cancels the RECORD-oriented I/O 
option triple codes from the SCAN 
TRT interest table. Gets next 
triple of interest and goes to 
NUSTAT to process as new statement. 



ENDIO 



ZDICRF (AA), LAONLY, LA0SM1, 
CALLIB, MVPSCD, ZTXTAB (AA) , SELL, 
SC3 (LA) 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Indicates presence of NOLOCK 
option. 



NLKOPT 



None 



Delete the SELL triple encountered 
during scan of RECORD- oriented 
I/O statement but puts dictionary 
reference in the SELL chain so that 
SELL triple can be regenerated at 
end of I/O statement 



SELL routine 
at SVSeLL or 
TMPSELL entry 
point 



ZDRFAB (AA), MV3A (LA) 



+- 



At end of program, releases own 
modules and turns control over to 
next requested phase. 



PRGEND 



RLSCTL 
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Table NJ1. Phase NJ Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



CALLIB 

CINTEG 
CMPERR 
CRDV (NK) 



DEFER 

DELETE 
DYNMPL (NK) 



ENDIO 

EVTOPT 

FILOPT 

IGNOPT 

INTFRM 

KEYOPT 

LAONLY (NK) 

KYTOPT 
LAOSM1 (NK) 

LAOSM2 (NK) 

MVPSCD (NK) 

MVTRPL (NK) 

NLKOPT 
NUSTAT 
NXTMPD 



Creates pseudo-code to call Library routine; indicates call in dic- 
tionary if not previously noted. 

Checks whether argument is a binary fixed integer. 

Indicates compiler error and ABORT, error code in HOLD register. 

Constructs a record description vector (RDV) entry in WORKSPACE. If 
the dope vector descriptor bit is on, then the routine generates a 
Library call to generate the RDV. If the variable has static 
extents and is not a string, the RDV is constructed from information 
in the RDV dictionary entry. If the variable is a string, then the 
RDV is constructed from its string dope vector. 

Indicates compiler error in the case of a deferred feature not 
detected by earlier phase. 

Establishes DELETE code as REQUEST_CODE. 

Establishes a parameter list in workspace if one is not already 
established. Calculates workspace offset to particular slot 
requested. Establishes a symbolic working register. Establishes 
skeleton pseudo-code for LA, ST, and DROP of register into workspace 
offset. 

Handles operations at end of I/O statement. 

Processes EVENT option. (Not implemented in second version.) 

Processes FILE option. 

Processes IGNORE option. 

Processes INTO/FROM option. 

Processes KEY or KEYFROM option. 

Outputs pseudo-code for LA into symbolic work register of a dic- 
tionary reference without any offset modifiers. 

Processes KEYTO option. 

Establishes pseudo-code for a LA instruction into a symbolic work 
register with the address of WORKSPACE and a literal offset which is 
pointed to the argument register. 

Generates LA pseudo-code in which both base and offset are in reg- 
isters. 

Puts pseudo-code assembled in pseudo-code area into output text 
block. 

Invokes SCAN utility to move generated triples into output text 
block. 

Indicates presence of NOLOCK option. 

Handles operations at start of new statement. 

Invokes SCAN utility to get next triple, which is checked to see if 
it is a TMPD; if not, it is an error. 
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Table NJ1. Phase NJ Routine/Subroutine Directory (cont'd) 

Function 



r T" 

I Routine/Subroutine I 



h 



PRGEND 
READ 

REFRDV (NK) 

| REWRIT 
I SCALAR 

SCAN01 

SCNOPT 
SCRHOP 

| SELL (NK) 

STDROP (NK) 

STRTNJ 
jSYMREG (NK) 
TMPREF (NK) 

ITMPSEL (NK) 

TXTARG 

TXTERR 
TXTEST 

UNLOCK 

WRITE 
WRKSPC (NK) 



Releases control to next phase at end of program. 

Establishes READ code as REQUEST_CODE; establishes parameter list 
size. 

Establishes the address of the RDV dictionary entry in the ARG reg- 
ister when given the data variable dictionary address in INDX1. 

Establishes REWRITE code as REQUEST_CODE. 

Confirms that dictionary code byte refers to scalar item; ascertains 
whether item is a constant. 

Indicates compiler error in the case of a deferred feature not 
detected during Read-In. 

Gets next triple of interest, branches to appropriate routine. 

Searches options, inserts RECORD-oriented I/O option entries into 
SCAN TRT interest table. 

Generates SELL triples for all dictionary references in the SELL 
chain. 

Outputs pseudo-code to ST contents of symbolic work register into 
parameter list slot in workspace set up by DYNMPL, and the drop of 
the symbolic register. 

Initializes phase. 

Establishes symbolic work register. 

Generates the appropriate LA pseudo-code to load the address of the 
temporary described by TMPD. 

Adds temporary entry to SELL chain for generation of SELL triple 
upon completion. 

Processes second argument of triple. If dictionary reference, esta- 
blishes absolute address in INDX1. Returns to LR if zero, i.e., 
TEMP, LR+4 if dictionary reference. If null, indicates compiler 
error. 

Writes error message. 

Converts function code of triple interest TRT table to internal key, 
and invokes PRGEND if end of program is indicated. 

Establishes UNLOCK code as REQUEST_CODE. (Not implemented in second 
version. ) 

Establishes WRITE code as REQUEST_CODE. 

Establishes the requested workspace area, starting on fullword 
boundary. 
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Table NM. 
r 



Phase NM Pseudo-Code Executable I/O 



■T T 

| Main Processing 
| Routine 
-+- 



Statement or Operation Type 



Subroutines Used 



H 



Processes GET and PUT statements | GET 

I 
I 



INSERT, STORAD, INSTFL, GENPC, 
GENTR, MVTRSP, ENDLST, CALIB, 
CHAR, INTEG, UTTMPW, SRCERR, 
SCAN (LA), STRUT1 (LV), STRUT2 (LV) 



H 



Processes OPEN and CLOSE statements I OPEN 



INSERT, STORAD,, INSTFL. GENPC 
GENTR, MVTRSP, ENDLST, CALIB, 
CHAR, INTEG, UTTMPW, SRCERR, 
SCAN (LA), STRUT1 (LV), STRUT2 (LV) 



Table NM1. Phase NM Routine/Subroutine Directory 



r -j" 

| Routine/Subroutine | 



Function 



f- 



CALIB (NN) 

CHAR (NN) 
ENDLST (NN) 
GENPC (NN) 
GENTR (NN) 
GET 
GETOO 
GET20 
GET8 5 

INSERT (NN) 
INSTFL (NN) 
INTEG (NN) 
MVTRSP (NN) 
NMR1 
OPEN 
OPEN00 
SRCERR (NN) 
STORAD (NN) 
UTTMPW (NN) 



Generates part of calling sequence and makes dictionary entry for 
Library routine. 

Converts a given argument to character string. 

Completes parameter list and makes dictionary entry for it. 

Moves pseudo-code to output. 

Moves generated triples to output. 

Processes GET and PUT statements. 

Initializes switches for GET/PUT. 

PAGE option. 

Processes end of I/O statement. 

Inserts dictionary reference in parameter list. 

Inserts file reference in parameter list. 

Converts a given argument to integer. 

Moves data and format list triples to output. 

Begins scan for triples of interest. 

Processes OPEN and CLOSE statements. 

Initializes switches for OPEN/CLOSE. 

Makes error dictionary entry. 

Generates pseudo-code to store symbolic register in parameter list. 

Obtains temporary workspace. 
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Table NT. Phase NT Pseudo-Code Data and Format 
r t 



H- 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Initializes phase, obtains scratch 
storage 



NTOOOO 



None 



NT0011, NT0014, NT0017, NT0021„ 
NT0023, NT0024, SC2 (LA) 



Scans text 



NT0003 



Collects remote format items and 
saves until end of block 



NT0011 



None 



Associates remote format items with 
data list items 



NT0014 



NTUT10 



Makes entries for Library routines 
required for EDIT-directed I/O and 
copies skeletons for phase NU into 
scratch storage, then releases 
phase 



NT0017 



NTUT20 



Identifies type of data list item 
and enters the type code in a list 



NT0021 



None 



+- 



4- 



Associates format and data list 
items and marks INCLUDE matrix 



NT0023 



NTUT10 



Identifies type of format list item 
and enters the type code in a list 



NT0024 



None 



Sets bits in INCLUDE matrix to 
represent STREAM I/O conversion 
requirements at execution time 



NTUT10 



None 



Makes dictionary entry for Library 
Routine 



NTUT20 



None 



Table NT1. Phase NT Routine/Subroutine Directory 



r t- 

I Routine/Subroutine I 



Function 



f- 



NT0000 
NT0001 
NT0003 
NT0011 
NT0014 
NT0017 
NT0021 
NT0023 
NT0024 
NT1700 
NTUT10 
NTUT20 



Initializes phase, obtains scratch storage. 

Initializes phase address slots. 

Scans text. 

Collects remote format items. 

Associates remote format items with data list items. 

Makes entries for Library routines for EDIT-directed I/O. 

Identifies types of data list items. 

Associates format and data list items. 

Identifies types of format list items. 

No EDIT-directed I/O, therefore no scan pass. 

Sets bits in INCLUDE matrix. 

Makes dictionary entry for Library routine 
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Table NU. Phase NU Pseudo-Code Data and Format 
r t 



Statement or operation Type 



4- 



Main Processing 
Routine 



Subroutines Used 



Scans text for LIST-, DATA-, and 
EDIT-directed input/output state- 
ments 



OB110 



SCI (LA) 



Generates Library calling sequences 
for data items in DATA-directed I/O 
statements 



DATA 



INSERT, ENDLST, PARADE, OBUT25 



Generates Library calling sequences 
for data items in LIST-directed I/O 
statements . 



OBE10 



OBUT20, OBUT22, OBUT25 



■H 



Generates Library calling sequences 
for data and format items in EDIT- 
directed I/O statements 



OB700 



None 



-+- 



Generates code to set up Library 
calling sequences for identifiers 
in data lists 



OB731 



SC5 (LA), STRUT2 (LV), UT1„ UT2 



Generates code to set up Library 
calling sequences for subscripted 
elements and expressions in data 
lists 



OB730 



UT2, STRUT2 (LV), UTl 



■+- 



Generates code to set up Library 
calling sequences for format items 
E and F with constant parameters 



OB9U0 



BCDCNV, UT15, UT18, UT9, UTll 



Generates code to set up Library 
calling sequences for format items 
E and F with variable parameters 



OB9U0 



UT25, UT24, UT22, UT18„ UT9, UTll 



Generates code to set up Library 
calling sequences for format items 
A, B, and control format items with 
constant parameters 



OB940 



OB20, OBA22, OBA26, BCDCNV, UTl 5, 
UT9, UTll 



Generates code to set up Library 
calling sequences for format items 
A, B, and control format items with 
variable parameters 



OB940 



UT9, UT19, UTl, UTll 



Generates code to set up Library 
calling sequences for format items 
A and B without a parameter 



OB9U0 



None 



Table NU1. Phase NU Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 

I" 



Function 



BCDCNV (NV) 

i 

J DATA 

I 

I 

j ENDLST 

i 

j INSERT 

L 



j Converts decimal BCD to equivalent binary value. 

I 

| Generates Library calling sequences for data items in DATA-directed 

j I/O statements. 

I 

| Completes parameter list and makes dictionary entry for it. 

I 

I Inserts dictionary reference in parameter list. 
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Table NUl. Phase NU Routine/Subroutine Directory (cont'd) 

Function 



r t- 

| Routine/Subroutine | 



OBC50 (NV) 
0BC61 (NV) 
OBE10 

OBUT20 
OBUT22 

OBUT25 



j. + 1 

Generates branch to start of list in case of FORMAT' . 

Generates branch around format item. 

Generates Library calling sequences for data items in LIST-directed 
I/O statements. 

Makes dictionary entry for DED in current TMPD triple. 

Fill in pseudo-code skeleton to make parameter list for expression 
result as data item. 

Sets register GRA to point at row in ZINCL matrix corresponding to 
data type of current data list item. Sets secondary lists in ZINCL 
if data item is complex. 

Scans text for LIST-, DATA-, and EDIT-directed I/O statements. 

Generates codes for Library calling sequences for data and format 
items in EDIT-directed I/O statements. 

Generates code for Library calling sequences for subscripted 
elements and expressions in data lists. 

Generates code for Library calling sequences for identifiers in data 
lists. 

Processes EDIT* triple. 

Looks for beginning of format list. 

Generates code for Library calling sequence for control format 
items, and format items A,B,E, and F. 

Generates branch to start of list in case of FORMAT LIST*. 

Makes dictionary entry for parameter list pointed to by GRA. 

Generates pseudo-code indicated by registers RR, BR. 

Sets register BR to absolute location of dictionary reference in 
second operand of current triple. 

Generates IPRM pseudo-code item with length set up in register RR. 

Makes dictionary entries for library routines for input and output 
of current format item director. 

Makes dictionary entry for FED for non- picture item. 

Makes dictionary entry for picture FED. 

Bump count of operands in E or F format item. 

Generates assignment triples for A,B or control format item with 
variable parameter to assign to workspace. 

Generates pseudo-code to form FED in workspace for variable paramet- 
er in E or F format item. 

Generates assignment triple for variable parameter in E or F format 
item to assign value into arithmetic register. 

Generates pseudo-code to initialize FED in workspace for E or F 
format item. 

L x j 



OB110 




OB700 


(NV) 


OB730 


(NV) 


OB7 31 


(NV) 


OB760 


(NV) 


OB84O 


(NV) 


OB940 


(NV) 


OB970 


(NV) 


PARADE 


UT1 




UT2 




UT9 (NV) 


UT11 


(NV) 


UT15 


(NV) 


UT15A 


(NV) 


UT18 


(NV) 


UT19 


(NV) 


OT22 


(NV) 


UT24 


(NV) 


UT25 


(NV) 
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Table OB. Phase OB Pseudo-Code Compiler Functions 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans text for BUY., BUY ASSIGN 
statements and compiler function 
and compiler pseudo- variables (see 
Appendix D.8), and transfers to 
appropriate routine 



STl 



SCAN (LA) 



Replaces MTF compiler functions 
(Appendix D.8) by pseudo-code move 
character instructions, adjusting 
the target field to controlled or 
temporary type 2 workspace where 
necessary 



MTFR 



BUFIZE, FRSTOP, SC3 (LA) 



Replaces ADV compiler functions 
(Appendix D.8) by pseudo-code 
instructions to load specified 
element of a dope vector into a 
register 



ADVR 



SC3 (LA) 



Replaces SDV compiler functions 
(Appendix D.8) by instructions to 
load the maximum length from a 
string dope vector into a register 



SDVR 



SC3 (LA) 



Replaces compiler pseudo-variable 
triples and compiler assignment 
triples by pseudo-code instructions 
which store the value assigned in 
specified part of dope vector 



ST4 



BUFIZE, STACK, MV3A (LA), FRSTOP, 
DROPRG, USTACK,, SC5 (LA) 



-+ 



Remove BUY, BUY ASSIGN, and SELL 
statements for scalar non- 
adjustable temporary variables from 
the text, and allocate storage in 
the pseudo-code workspace for the 
temporaries 



ST8, ST10, ST7 



SC2, SC3 (both in LA) 



Generates code to drop a symbolic 
register, or mark a literal 
register not wanted 



DROPRG 



None 



Determines whether the target dic- 
tionary reference of MTF function, 
or ADV or SDV pseudo-variable is 
controlled or a temporary type 2. 
If it is, the dictionary reference 
is replaced by the dictionary ref- 
erence of the controlled or tem- 
porary type 2 workspace, with the 
appropriate offset, if the target 
is a structure base element 
Stack and unstack the information 
specifying the target field of 
compiler pseudo- variable assignment 



FRSTOP 



SETDVF 



STACK, USTACK 



None 



■+■ 



Calculates the offset of the dope 
vector of a structure base element 
from the start of the structure 
dope vector 



SETDVF 



None 



Place triples from the source text 
in an internal buffer. 



BUFIZE 



SC5 (LA) 



Section 3 : Charts and Routine Directories 



229 



Table OBI. Phase OB Routine/Subroutine Directory 



r T- 

| Routine/Subroutine | 



Function 



ADVR 

AT7 

AT 8 

BUFIZE 

BY5 

BY19 

DROPRG 

FRSTOP 

MTFR 

SDVR 

SETDVF 

STACK/USTACK 

ST1 

ST4, ST6 

ST7,ST8,ST10 



Replaces ADV compiler functions by pseudo-code instructions to load 
the specified element of a dope vector into a register. 

Generates pseudo-code 

Replaces operand by workspace reference. 

Places triples from the source text in an internal buffer. 

Tests length of string. 

Processes string temporary (dope vector only). 

Generates code to drop a symbolic register or mark a literal reg- 
ister not wanted. 

Replaces the target field of MTF function or compiler pseudo- 
variable by controlled workspace where necessary. 

Replaces MTF compiler functions by pseudo-code move character 
instructions . 

Replaces SDV compiler functions by pseudo-code instructions to load 
the maximum string length into an object register. 

Calculates the offset from the start of a structure dope vector to 
the dope vector of a particular base element. 

Stack and unstack information specifying target field of compiler 
pseudo- variable assignment. 

Scans text for BUY and BUY ASSIGN statements, compiler functions, 
and compiler pseudo- variables. 

Replaces compiler pseudo-variables and compiler assignment triples 
by pseudo code instructions to set the assigned expression, convert- 
ed if necessary in the specified part of a dope vector. 

Remove BUY, BUY ASSIGN, and SELL statements for fixed scalars from 
the text, and allocate space for the temporary variables in the 
pseudo- code workspace. 
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Table OE. Phase OE Pseudo-Code Assignment 

r 



T T" 

|Main Processing! 
Routine 



f- 



Statement or Operation Type 



Subroutines Used 



Generates pseudo-code for assign- JASSOO 
ment triples | 



JASCOO, ASCDOO, ASDROP 



I" 

| Generates Library calling sequences | ALLOC, FREE, j CALIB 

| for ALLOCATE, FREE, BUY, and SELL |BUY, or SELL | 
j triples I j 

l x x 



Table OEl. Phase OE Routine/Subroutine Directory 



r r~ 

| Routine/Subroutine | 

h 



F unction 



ALLOC (OF) 

ASCOO 

ASCDOO 

ASDROP 

ASFBOO 

ASFDOO (OF) 

AS FLO 

AS LOO 

ASSOO 

ASS032 

ASTRO (OF) 

BUY (OF) 

CALIB (OF) 

ENABLE 

FREE (OF) 

GENCNV 

GENRXO 

GENSSO 

GETDES 

RMNDX 

SBGTNR 

SELL (OF) 

SPASS (OF) 



Processes ALLOCATE triples. 

Inserts target types for constants. 

Controls assignment of real and complex data. 

Drops symbolic registers. 

Generates code for fixed binary assignments. 

Generates code for fixed decimal assignments. 

Generates code for floating-point assignments. 

Generates code for label assignments. 

Processes assignment triples. 

Tests for special assignment triple. 

Generates code for string and numeric field assignments. 

Processes BUY triples. 

Generates Library calling sequences. 

Enables for SIZE prefix option. 

Processes FREE triples. 

Generates convert macro instruction. 

Generates RX instruction. 

Generates SS instruction. 

Obtains operand description. 

Removes index from operand. 

Obtains next symbolic register. 

Processes SELL triples. 

Processes special assignment triples. 
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Table OG. Phase OG Library Calling Sequences 

r t t 

Main Processing 

Statement or Operation Type 



Routine 



Subroutines Used 



Examines all triples left in text 
before converting them to pseudo- 
code 



MJG012 



UPDATE, MJG030„ FMT001, MJG0U5,, 
MJG060, MOVEN 



Transfers pseudo-code to output 
text 



MJG060 



MJG300, MJG200, MJG080, MJG100, 
MJG075, UPDATE, MOVEN 



Generates calling sequence for 
Library conversion modules 



MJG200 



IEMOH, UPDATE, MOVEN 



Controls the output of text and the 
handling of output text blocks 



UPDATE 



MVCHR, BMPTXT 



232 



Table 0G1. Phase OG Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



BMPTXT 
FMT001 
FMT002 

IEMOH (OH) 

MJG011 

MJG012 

MJG030 

MJG034 
MJG036 
MJG040 

MJG045 

MJG060 
MJG075 
MJG080 
MJG100 
MJG200 

MJG203 (OH) 
MJG204 (OH) 
MJG298 (OH) 
MJG300 
MJG308 
MOVEN 
MVCHR 
UPDATE 



Handles the output of text blocks. 

Processes FORMAT and FORMAT LIST triples. 

FORMAT LIST' triple encountered. Clears workspace 3 marker* reverts 
to workspace 1. 

Examines data types in CONVERT macro, and generates calling sequence 
to a conversion routine. 

Converts statement number triple to pseudo-code, moves to output 
text. 

Examines all triples left in text before converting them to pseudo- 
code. 

Processes PROC, PROC, BEGIN, BEGIN' triples and sets up counts for 
working storage requirements. 

Sets up workspace counts for containing block. 

Sets up workspace counts for block. 

JMP, EOP, or E0P2 encountered. If EOP, moves to output text; 
otherwise, makes appropriate branch. 

Removes JUMP triple from text and prepares for following pseudo- 
code. 

Handles the transfer of pseudo-code and looks for CONVERT items. 

Transfers 5-byte pseudo-code items. 

Transfers 3-byte pseudo-code items. 

Transfers variable length pseudo-code items. 

Controls the output of the pseudo-code generated to call conversion 
routines. 

Generates pseudo-code to point to source data. 

Generates pseudo-code to call Library conversion routine. 

Sets bits for conversion modules. 

Removes IGN triple. 

Deletes length of pseudo-code; gets next pseudo-code instruction. 

Handles the input text when an item spans blocks. 

Moves text to an output block. 

Tests whether the current text block is full. 
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Table OS. Phase OS Constant Conversions 
r t 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans constants chain for double 
word constants 



SCAN1 



POOLSC, SCN010, STPTST 



Scans constants chain for single 
word constants 



SCAN2 



POOLSC, SCN010, STPTST 



Scans constants chain for unaligned 
constants 



SCAN3 



CONVRT, IADENT, SCNQ10, STPTST 



Scans through constants chain for 
all constants used to initialize 
STATIC storage 



SCAN4 



CONVRT, STPTST 



Sets up parameter and branches to 
the correct conversion routine 



CONVRT 



ARARD, ARBTD, ARCHD, CHARD, ERROUT, 
IACONV, IASTRN, IHEVFA, IHEVFB, 
IHEVFC, IHEVFD, IHEVFE, IHEVKF, 
IHEVKG, IHEVPA, IHEVPB, IHEVPC„ 
IHEVPD, IHEVPE, IHEVPF. IHEVP3 W 
IHEVPH, UPAA, UPAB, UPBA, UPBB, 
VSAA, VSCA, VSDA, VSEA, ZEROPT 



—J 



Table OS1. Phase OS Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



ARARD 



ARBTD 



ARCHD 




CHARD 




CONVRT 




ERROUT 




IACONV 




IADENT 




IASTRN 




IHEVFA 


(OT) 


IHEVFB 


(OT) 


IHEVFC 


(OT) 


IHEVFD 


(OT) 


IHEVFE 


(OT) 



Handles the linking of routines required for any arithmetic to 
arithmetic conversions (corresponding Library module IHEDMA) . 

As above for arithmetic to bit conversion (corresponding Library 
routines IHEDNB) . 

[Arithmetic to character (IHEDNC). 

(Character to arithmetic (IHEDCN). 

Sets up parameters and branches to correct conversion routine- 
Handles the output of error messages for the conversion routines. 
Handles conversion to arithmetic type. 

Makes dictionary entry in the constant pool, generating a new con- 
stant pool block if necessary. 

Handles conversion to string type. 

Converts radix long floating-point binary to packed decimal inter- 
mediate. 

Converts long precision floating-point number to fixed binary. 

| Converts long floating-point number to floating-point variable. 

Converts fixed point binary integer with scale factor to long preci- 
sion floating-point intermediate. 

Converts floating-point number of specified precision floating- 
point. 
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Table 0S1. Phase OS Routine/Subroutine Directory (cont'd) 

Function 



r t~ 

| Routine/Subroutine) 



f- 



IHEVKF (OU) 

IHEVKG (OU) 

IHEVPA (OT) 

IHEVPB (OU) 

IHEVPC (OU) 

IHEVPD (OT) 

IHEVPE (OT) 
IHEVPF (OT) 

IHEVPG (OT) 

IHEVPH (OT) 

LDCONP 
POOLSC 

SCAN1 
SCAN 2 
SCAN3 
SCAN4 

SCN010 

STPTST 

UPAA (UPAB) (OT) 

UPBA (UPBB) (OT) 

VSAA (OT) 

VSCA (OT) 

VSDA (OT) 

VSEA (OT) 

ZEROPT 



Converts packed decimal intermediate to decimal fixed or floating- 
point numeric field with specified precision. 

Converts packed decimal intermediate to a sterling numeric field, 
with specified precision. 

Converts packed decimal intermediate to long float. 

Converts packed decimal intermediate to an F format item. 

Converts packed decimal intermediate to an E format item. 

Converts packed decimal intermediate to a decimal integer with 
specified precision and scale factor. 

Converts an F or E format item to packed decimal intermediate. 

Converts a decimal integer with specified precision and scale factor 
to packed decimal intermediate. 

Converts binary fixed or floating-point constant to long precision 
floating-point. 

Converts bit string constant with up to 31 significant bits, to 
floating-point with long precision. 

Points to head of constant chain. 

Given a converted constant in scratch storage, scans the existing 
pool for an identical entry. If such an entry is found, the pool 
offset and dictionary reference of the entry is moved into the dic- 
tionary entry for the constant. 

Scans constants chain for double word constants. 

Scans constants chain for single word constants. 

Scans constants chain for unaligned constants. 

Scans constants chain for constants used to initialize static stor- 
age. 

Controls the calling of the conversion routine CONVRT and pool scan 
routine POOLSC and., if required, IADENT. Also handles the case of a 
constant given in internal form. 

Checks for the end of the constant chain. 

Produces zero real (imaginary) part for CAD (corresponding Library 
module IHEUPA) . 

Produces zero real (imaginary) part for numeric field (IHEUPB). 

Convert from bit string to bit string (IHEVSA) . 

Convert from character string to character string (IHEVSC) . 

Convert from character string to bit string CIHEVSD) . 

Convert from character string to pictured character string (IHEVSE). 

Produces a zero real or imaginary part for a constant given in 
| internal form. 

x 
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Chart 08. Storage Allocation Logical Phase Flowchart 



***** 

*08 * 
* Al* 



*****A1* ********* 
♦STATIC 1 PO* 
*-*-*-*-*-*-*-*-* 

* SCANS TEXT * 

* SORTS STATIC * 

* CHAIN * 
***************** 



*****B1 ********** 
♦STATIC 2 PH* 
*-*-*-*-*-*-*-*-* 
♦ALLOCATES ST0R-* 
*AGE FOR STATIC * 
•ARRAYS 6 STRUCT* 
***************** 



*****C1 ********** 
*SYM TABLE PL* 
*-*-*-*-*-*-*-*-* 

* ALLOCATES SYM * 

* TAB AND DED * 

* FOR VARIABLES * 
***************** 



*****01 ********** 
*AUTO SORT PP* 
*-*-*-*-*-*-*-*-* 

* SORTS * 

* AUTOMATIC * 

* STORAGE * 
***************** 



*****E1 ********** 
♦AUTO STORE PT* 
*-*-*-*-*-*-*-*-* 

* ALLOCATES * 

* AUTOMATIC ♦ 

* STORAGE * 
***************** 



*****F1 ********** 
♦PROLOGUES QF* 
*-*_*-*-*-*_*-*_* 

♦ CONSTRUCTS * 

♦ PROLOGUES FOR * 
♦BEGIN AND PROC * 
***************** 



*****G i ********** 
*OYN STORE QJ* 
*-*-*-*-*-*-*-*-* 
♦ SCANS TEXT * 
♦FOR ALLOCATE K * 
*BUY STATEMENTS * 
***************** 



***** 
*09 * 
* Al* 
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Chart PD. Phase PD Overall Logic Diagram 



*****A1 ********** 

* SCAN TEXT * 

* AND * 

* REVERSE * 

* SECOND FILE * 

* POINTERS * 
***************** 



SCSORT X 

*****B1 ********** 

* SCAN STATIC * 

* CHAIN * 

* AND * 

* SORT ENTRIES * 

* * 
***************** 



: .*. 
ci *. 

.♦SIMPLE * 
> STATIC 

INTERNAL 
*. VARIABLE 
*. .* 
*. .* 
* NO 



*****C 2 ********** 

* ALLOCATE * 
<* REQUIRED * 

* STORAGE * 

* * 
ft**************** 



.X. 



DVALOC •*. 

Dl *. 

.* *. 

•* IS A * 

*. DOPE VECTOR 

♦.REQUIRED .* 

*. .* 

*. .* 

* NO 



*****D2********** 

* DETERMINE * 

* DV SIZE * 
<* AND * 

* ALLOCATE * 

* STORAGE * 
***************** 



.* STATIC 
*. EXTERNAL 
♦.VARIABLE . 
*. .* 



*****£ 2 ********** 

* ALLOCATE * 

* A 4-BYTE * 
ADDRESSING *. 

* SLOT * 

* * 
***************** 



.X* 



. X* 



*****E3********** 

*OETERMINE SIZE * 

* OF CONTROL * 

SECTION AND * 

PLACE IT IN * 

DICT ENTRY * 

**************** 



CONALC 

*****F i ********** 

*SCAN CONSTANTS * 

* CHAIN AND * 

* RELOCATE * 

* OFFSETS IN * 
♦CONSTANTS POOL * 
***************** 



*****G1 ********** 

* * 

* BUMP LOCATION * 

* COUNTER BY * 

* SIZE OF POOL * 

* * 
***************** 



.*. 

HI *. 

.* ARE *. 

.♦THERE MORE *. YES 

*. CONSTANTS .*... 

*. POOLS .* 



*• 



.* 



X 
***** 
*PH * 
* Al* 
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Chart PH. Phase PH Overall Logic Diagram 



***** 

*PH * 
* Al* 



PBSCAN X 

*****A1 ********** 

* PICK UP * 

* START OF * 

* PROCEDURE *. 

* BEGIN CHAIN * 

* * 
***************** 



**** 

* * 

* A2 * 
k * 

**** 

Ix... 

X 
• *. 



A2 

.* *. 

.* END OF *. NO 
*. AUTOMATIC .*... 
*. CHAIN .* 
.* 



*. 



* YES 



CONSCN X 

*****B1 ********** 

* PICK UP * 

* START OF * 

* CONTROLLED * 

* CHAIN * 

* * 
***************** 



* GO TO NEXT * 
<* ITEM IN * 

* THE CHAIN * 

* * 
***************** 



<e CAN * 
IT HAVE 
A DOPE 
VECTOR 



X 

.*. 

CI *. 

.* ♦ . 

.* END OF *. NO 

♦ . CONTROLLED .*... 

♦ . CHAIN .* 



*. 



*****E1 ********** 

* CONTINUE * 

* SCAN OF * 

* STATIC * 

* CHAIN * 

* * 
***************** 



*****C 2 ********** 

* * 

* GO TO * 
<* NEXT ITEM * 

* IN CHAIN * 

* * 
***************** 



*****[)2* ********* 

* MAKE SKELETON * 

* DOPE VECTOR * 
♦ENTRY. INCLUDE * 
♦WHOLE STRUCTURE* 

* IF NECESSARY * 
***************** 



*****£ 2 ********** 

* PUT DOPE * 
♦VECTOR ENTRY I N* 

* STATIC CHAIN. *. 

* ALLOCATE * 

* STORAGE * 
***************** 



.* SKELETON 
. ARGUMENT 
*. LIST 



SKARG1 
■ *****F3********** 

* ALLOCATE * 

* AMOUNT OF * 
...X* STORAGE * 

* REQUIRED * 



***************** 



B4 *. 
.♦ DOES *. 
.♦IT REQUIRE *. 
.X*. A DOPE 

♦. VECTOR .* 
♦. .♦ 
♦ . .♦ 
♦ YES 



SKDV1 X 

*****C4 ********** 

♦ MAKE SKELETON ♦ 

♦ DOPE VECTOR ♦ 
♦ENTRY. INCLUDE + X. 
♦WHOLE STRUCTURE^ 

♦ IF NECESSARY * 
***************** 



*****D4* ********* 

♦ INCLUDE DOPF ♦ 
♦VECTOR ENTRY IN* 

* STATIC CHAIN. *. 

* ALLOCATE * 

♦ STORAGE * 
***************** 



B5 *. 

,♦ IS *. 

IT A 

STRUCTURE 

'*. .*" 
*. . * 
* YES 



YES .* ANYTHING *. NO 
......IN STRUCTURE .♦... 

*. REQUIRE .* 



G2 *. 
ARRAY 



STRALO .*. 
H2 * 
.* 
NU .* 



♦♦***G 3 ********** 

♦ ALLOCATE * 

♦ STORAGF. * 
.X* CALCULATE *. 

* NUMBER OF * 

* FLEMENTS * 
***************** 



*****H 3* ********* 

* ALLOCATE * 

* STORAGE. WORK * 
<* OUT NUMBER OF *. 

♦ELEMENT IN ANY * 

* ARRAYS * 
***************** 



.X^ 



*****G4* ********* 

* IF VIRTUAL * 

* ORIGIN IS -VE * 
ALLOCATE *. 

DEGENERATE ♦ 

* DUPE VECTOR * 
***************** 



*****H4********** 

* ALLOCATE * 

* DEGENERATE * 
.X*DOPE VFCTOK FOR*. 

* -VE VIRTUAL * 

* ORIGINS * 
***************** 



♦SAVE TOTAL SIZE^ 
* OF STATIC * 



***************** 



***** 

♦ PL ♦ 

♦ Al* 
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Chart PL. Phase PL Overall Logic Diagram 



***** 

*PL * 
* Al* 



* SCAN CHAIN * 

* OF STATIC *X 

* VARIABLES * 

* * 
***************** 



**** 
n * 

* Al * 

* * 
**** 



***************** 



82 *. 

.* DOES * 

VARIABLE 

REQUIRE 

OED 



*. 



* ALLOCATE * 
.* SYMBOL TABLE * 

* FOR VARIABLE * 

* * 
***************** 



YES 
.*. 
B3 *. 
.* OOFS *. 
.* VARIABLE 
!■• REQUIRE 
*. SYMBOL . 
♦.TABLE.* 
*. .* 



* SCAN CHAIN * 

* OF CONTROLLED * 

* VARIABLES * 

* * 
***************** 



OEOAL1, X 
DEDAL2 

*****C 2*** ******* 



****** *********** 



YES 
.*. 
D2 *. 
.* DOES *. 
.* VARIABLE 
.X*. REQUIRE 
*. DED 



* ALLOCATE * 
.* SYMBOL TABLE * 

* FOR VARIABLE * 

* * 
***************** 



YES 

.*. 

03 *. 

.* DOES *. 

* VARIABLE 

REQUIRE 

►. SYMBOL . 

♦.TABLE.* 

*. .* 



***************** 



.* DOES * 
.* CONSTANT 
•X*. REQUIRE 
*. DED 



BCSCAN X 

*****G1 ********** 

* i SCAN CHAIN * 

* OF PROCEDURE * 

* AND BEGIN * 

* BLOCKS * 

* * 
***************** 



.* 



.*. 

HI *» 

.* *. 

END OF *. NO 
CHAIN .*... 
*. .* 



***** 
*PP * 
* AX* 



* SCAN CHAIN * 
,X* OF AUTOMATIC * 

* VARIABLES * 

* * 
***************** 





G3 *. 




.* DOES *. 


NO 


.* VARIABLE *. 




..X*. REQUIRE .* 




*. OED .* 




*. .* 




*. .* 




* YES 




DEDAL1, '. 




DEDAL2 X 




*****H 3**** ****** 




* * 




* ALLOCATE DED * 








* * 




* * 




***************** 


***< 




* 


* 


* H2 


* 


* 


* 


**** 





. *. 
G4 *. 
.* DOES *. **** 

.* VARIABLE *. N3 * * 
*. REQUIRE .*....X* H2 * 

*. SYMBOL .* * * 
♦.TABLE.* **** 

♦ . .♦ 
* YES 



* ALLOCATE * 
.* SYMBOL TABLE * 

* FOR VARIABLE * 

* * 
***************** 
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Chart PP. Phase PP Overall Logic Diagram 



***** 
*pp * 

* Al* 



RAO X 

*****A1 ********** 

* * **** 

* SCAN ENTRY * * * 
..X* TYPE 1 CHAIN *X....* Al * 

* * * * 

* * **** 
***************** 



.* IS *. 
.* THERE *. 


NO 






*. TYPE 1 .* 
*. .* 
*. .* 
* YES 




X 

***** 

*PT * 

* Al* 

* * 

* 


**** 
* 

* C2 
* 

**** 



. *. 

CI *. 

* IS * 

THERE 

AN AUTO 

CHAIN 

*. •* 

*. .* 



* MAKE AN * 
.* AUTO CHAIN * 

* DELIMITER * 

* * 
***************** 

**** 



.* THERE A *. YES 

. DEPENDENT .* 

*. CHAIN .* 



***************** 



*****E 2 ********** 

* * 

* SCAN * 
<* DEPENDENT * 

* CHAIN * 

* * 

***************** 



*****F1 ********** 

* * 

* ADD TO * 

* INDEPENDENT *X 

* CHAIN * 

* * 
***************** 



RA7 




.*. 

Gl *. 

* * 


NO 


* 


END 


. . .* 


* 


OF CHAIN 
*. .* 


X 




*. .* 


**** 




* YES 








E2 * 




. 


* 






«*** 




X 

• *. 

HI *. 

.* ANY * 




* 


ITEMS 


* 




ADDED TO 




* 


.IND. CHN 



*****G2 ********** 



***************** 



* PLACE IN * 
<* INDEPENDENT *. 

* CHAIN * 

* * 
***************** 



.* NON 
*. ADJUSTABLE 
*. ITEM 



.*. 

F3 *. 

.* *. 

.*ADJUSTA8LE 

ITEM 



***************** 



SCRUBI 

*****H2 ********** 

* REMOVE * 

* INDEPENDENT * 
...X* ITEMS FROM *. 

* DEPENDENCIES * 

* * 
***************** 



*****H 3 ********** 

* ADD * 

* INDEPENDENT * 
.X* CHAIN TO *. 

* AUTO CHAIN * 

* * 
***************** 



SCNCHN, SRCH2 
SRCH2 

*****F4 ********** 

* SET LIST OF * 

* DEPENDENCIES * 
...X* IN CURRENT *. 

* DEPENDENT * 

* CHAIN * 
***************** 



*****G4********** 

* COMBINE * 

* ON CHAIN * 
<* AND * 

* INDEPENDENT * 

* CHAIN * 
***************** 



*****H 4*** ******* 

* * 

* MAKE * 
(* CHAIN * 

* DELIMITER * 

* * 
***************** 



* ADD TO * 
<* DEPENDENT * 

* CHAIN * 

* * 
***************** 



**** 
K * 
f C2 * 
* * 

**** 



*****jl ********** 

* * 

* * 

* ERROR * 

* * 

* * 
***************** 
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Chart PT. Phase PT Overall Logic Diagram 



***** 

*PT * 
* Al* 



C0NT1 X 

*****A1 ********** 
*SCAN CONTROLLED* 
*CHAIN FOR SIZE * 

* OF LARGEST * 

* DOPE VECTOR * 

* * 
***************** 



* PICK UP FIRST * 

* ENTRY TYPE 1 * 

* IN El CHAIN * 

* * 
***************** 

**** 



**** 
DSA5 X 

*****C i ********** 

* ALLOCATE * 

* STANDARD * 

* SAVE AREA * 
*AND FLAG BYTES * 

* * 
***************** 



DSAIO X 

*****E1 ********** 

* ALLOCATE 8 * 

* WORDS FOR * 

* ADDRESSING « 

* VECTOR * 

* * 
***************** 



Fl 



*. 



PROC 

. .* 
*. .* 

* NO 



* ALLOCATE * 

* PSEUDO-CODE * 

* WORKSPACE * 

* * 
***************** 



DSA161 

***** j J ********** 

* * 

* ALLOCATE * 

* STORAGE * 

* REQUIRED * 

* * 
***************** 



* COMPILE CODE * 
.* TO INITIALIZE * 

* DOPE VECTOR * 

* * 
***************** 



*****D2 ********** 
♦ALLOCATE 8-BYTE* 

* SLOT AND * 
<* COMPILE CODE * 

* TO INITIALIZE * 

* * 
***************** 



*****F 2 ********** 

* ALLOCATE * 
2 WORDS FOR * 
ADDRESSING * 

* SLOTS * 

* * 
***************** 



.X* 



DSA17 

*****H2 ********** 

* ALLOCATE * 

* PARAMLIST * 
...X* AND 'BUY' * 

* WORKSPACE * 



***************** 



**** 

* * 
.X* E3 * 

* * 
**** 



* GET NEXT El' * 

* ENTRY IN * 
♦CIRCULAR CHAIN * 

* * 
***************** 



NO .* IS THIS * 
,..*.THE ORIGINAL 
*. PROC .* 



**** 

* * 
"■ E3 *.X 



**** 
DSA25 X 

*****E3 ********** 

* * 

* ALLOCATE * 

* D0U8LE WORD * 

* STORAGE * 

* * 
***************** 



* ALLOCATE * 

* SINGLE WORD * 

* STORAGE * 

* * 
***************** 



* ALLOCATE * 

* CHAR STRING * 

* STORAGE * 

* * 
***************** 



* ALLOCATE * 

* BIT STRING * 

* STORAGE * 

* * 
***************** 



* ALLOCATE * 

* STORAGE FOR * 

* ARRAYS * 

* * 
***************** 



* ALLOCATE * 

* STORAGE FOR *.. 

* STRUCTURES * 

* * 
***************** 



*****B4* ********* 



***************** 



OSA7A 

*****D4********** 

* STORE POINTER * 

* TO 2ND FILE * 
..X* STATEMENT *X 

* CREATED * 

* * 
***************** 



* GET VDA * 
<* FOR REGION * 

* IF REQUIRED * 

* * 
***************** 



* STORE DSA * 

* SIZE IN * 

* ENTRY TYPE 1 * 

* * 
***************** 



* RELEASE * 
<* TEXT BLOCKS * 

* AND CONTROL * 

* * 
***************** 



X 
***** 
*QF * 
* Al* 
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Chart QF. Phase of Overall Logic Diagram 



***** 

*QF * 
• Al* 



**** 

k * 
► A3 * 

* 4 
**** 



♦X....* Al * 



***************** 



END OF 
TEXT 



***** 
*QJ * 
* Al* 



*. YES 
PROC .*.... 
.* 



Fl *. 
BEGIN 



QPPROL 

*****E2 ********** 

* GENERATE * 

* ENTRY POINT * 
...X* CODE FOR *. 

* EACH LABEL * 

* ON PROC * 
***************** 



***************** 



* GENERATE * 
<* PROLOGUE *. 

* TO GET DSA * 

* * 
***************** 



* SCAN * 

* AUTOMATIC ♦ . 

* CHAIN * 

* * 
***************** 



*. YES 
DELIMITER .*.... 



QMOVE1 

*****A5* ********* 
♦PLACE DELIMITER* 

* 2ND FILE * 
...X* STATEMENT * 

•* IN TEXT * 

* * 
***************** 



.* *. 
YES .* FIRST *. 
*. ZONE .< 



* A3 * 

* * 
**** 



*****C4 ********** 
♦EXTRACT EXTENT * 

* EXPRESSIONS * 

* FOR ITEM * 

* FROM 2ND * 

* FILE * 
***************** 



**** 
> * 
* A3 *X. 



DOES 
ITEM NEED 
. STORAGE . 



*****C 5* ********* 

* SKIP 2ND * 

* FILE TEXT * 

* TO FIRST * 

* STATEMENT * 

* IN BLOCK * 
***************** 

\ **** 

* * 
..X* J 3 * 

* * 
**** 

3F11<H 

*****q 5* ********* 

* EXTRACT * 

* MAPPING * 
..X* CODE FROM * 

* 2ND FILE * 



***** 



EXTERNAL 

PROC 
♦ . .* 



*****£<,********** 

* GENERATE * 

* CODE TO * 
(* SET STATIC * 

* ADDRESS IN * 

* Rll * 
***************** 





* 


**** 


GENERATE 


* 


* * 


PROLOGUE 


*. . 


..X* A3 * 


TO GET DSA 


* 


* * 




* 


**** 



**** 

* * 

X* Al * 

* * 
**** 



QF0370 

*****F4********** 

* GENERATE * 

* COMMON * 

* PROLOGUE * 

* FOR GET OSA * 

* * 
***************** 



G4- *. 
.* IS *. 
* THERE 

A RETURN 

^EXPRESSION. 

*. ? .* 



************ 



.*. 



E5 

.* IS *• 

.* ITEM *. 

FIRST 

*. IN ZONF .* 

*. .* 



QF15U 

*****F5********** 

* REMOVE VOA * 

* ACCUMULATOR * 
....* ALIGNMENT * 

* CODE FROM * 

* MAPPING CODE * 
***************** 



*****G 5 ********** 

* GENERATE * 

* CODE TO * 
.X* SET RETURN * 

* VALUE POR * 

* ENTRY LABFL * 
***************** 



* NO 



(■*** 
* 
J3 * 
* 
It*** 



J3 

. * 
.* 
*. PRC 



J4 *. 
.* ARE *. 
THERE ANY *. 
ENTRY PTS .< 

? .* 
*. . * 
*. .* 



QFIJ570 

*****H5* ********* 

* GENERATE * 

* CODE TO * 

* COPY ARG * 

* AND TARGET * 

* ADDRESSES * 
***************** 

**** 

* * 
..X* A3 * 

* * 
**** 

QMOVE1 

*****J5********** 
♦GENERATE ENTRY * 
♦COMMON PROLOG, * 
...X* RETURN, AND * 
♦PARAMETER CODES* 
♦FOR EACH ENTRY * 
***************** 
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Chart QJ. Phase QJ Overall Logic Diagram 
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* 


DOPE VECTOR 
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Table PD. Phase PD Storage Allocation Static 1 

r t r 

Main Processing 
Statement or Operation Type 



Routine 



Subroutines Used 



Reverses second file dictionary 
pointers 



PD 



NXBLCK 



Sorts STATIC chain 



SCSORT 



None 



4- 



Allocates storage for simple, non- 
structured, non- external items 



STATIC 



None 



Allocates dope vectors for all 
non- external items 



DVALOC 



None 



Allocates 4-byte addressing slots; | TVALOC 
calculates control section size for 
all external items 
j. 

| Allocates storage for constants. |CONALC 

l . jl 



STRCDV 



None 



Table PD1. Phase PD Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



CONALC 

DVALOC 

NXBLCK 

PD 

SCSORT 

STATIC 

STRCDV 

TVALOC 



Allocates storage for constants. 

Allocates dope vectors for all non-external items. 

Obtains next text block. 

Scans text file and reverses second file pointers. 

Sorts STATIC chain. 

Allocates storage for simple, non-structured, non-external items.. 

Allocates relative offsets of structure member dope vectors. 

Allocates 4-byte addressing slots; calculates control section size 
for all external items. 
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Table PH. Phase PH Storage Allocation Static 2 
r t- 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans AUTOMATIC chain; allocates 
dope vector 



PBS CAN 



AUT04, SKDV1, SKENT3, STRSCN, 
TEMPDV 



4- 



+- 



Scans CONTROLLED chain 



CONSCN 



AUT04, SKDV1, STRSCN 



Allocates storage for skeleton 
argument lists appearing in STATIC 
chain 



SKARGL 



None 



Scans STATIC chain for INTERNAL 
arrays; calculates number of 
elements for those arrays needing 
initializing. Allocates storage 
for arrays and, if necessary, for 
secondary dope vectors 



ARRSCN 



None 



+- 



Scans STATIC chain for INTERNAL 
structures. Calculates number of 
elements in structured arrays need- 
ing initializing. Calculates size 
of storage for all structures and 
bumps location counter. 



STRALO 



None 
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Table PHI. 



Phase PH Routine/Subroutine Directory 



Routine/Subroutine | 



Function 



I-- 



ARRSCN 

AUTEND 
AUT04 

CONSCN 

CSCN2 

END513 

PBSCAN 

PBS1 

SKARGL 

SKARG1 
SKDV1 

SKENT3 

STRALO 

STRSCN 

TEMPDV 



Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
[and secondary dope vectors- 
Tests for end of AUTOMATIC chain. 

Calculates size of dope vectors for dynamic temporaries and CON- 
TROLLED variables. 

Scans CONTROLLED chain. 
Tests for end of STATIC chain. 

Stores STATIC location counter and releases control. 
Scans AUTOMATIC chain; allocates dope vectors. 
Gets next item in chain- 
Allocates storage for skeleton argument lists appearing in STATIC 
chain. 

Allocates storage required. 

Creates skeleton dope vector dictionary entries for non- structured 
[variables in AUTOMATIC and CONTROLLED storage- 
Constructs skeleton dope vector dictionary entries for function 
values. 

Calculates number of elements in structure arrays to be initialized; 
calculates size of storage for all structures. 

(Creates skeleton dope vector dictionary entries for structures in 
AUTOMATIC and CONTROLLED chains. 

Creates skeleton dope vector dictionary entry for temporary work- 
space. 
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Table PL. Phase PL Storage Allocation Symbol Table and DEDs 
r 



T T 

Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



Allocates STATIC storage for all 
symbol tables and DEDS 



IEMPL 



BCSCAN, CCSCAN, CNSCAN, SCSCAN 



+- 



Scans STATIC chain for symbol and 
DED variables 



SCSCAN 



DEDAL1, STRSCN, SYMTAB 



Scans CONTROLLED chain for symbol 
and DED variables 



CCSCAN 



DEDAL1, STRSCN, SYMTAB 



■+■ 



Scans PROCEDURE block chain of 
ENTRY type 1 entries 



BCSCAN 



ACSCAN, DEDAL1 



Scans AUTOMATIC chain for symbol 
and DED variables 



ACSCAN 



DEDAL1, STRSCN, SYMTAB 



+■ 



Scans chain of members of particu- 
lar structure for symbol and DED 
variables 



STRSCN 



DEDAL1, SYMTAB 



Allocates storage for symbol tables 



SYMTAB 



DEDAL2 



Allocates storage for DEDS 



DEDAL (two 
entry points: 
DEDAL1, DEDAL2) 



None 



Table PL1. Phase PL Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



ACSCAN 

BCSCAN 

CCSCAN 

CNSCAN 

DEDAL1 (PM) 

IEMPL 

SCSCAN 

STRSCN 

SYMTAB (PM) 



Scans AUTOMATIC chain for symbol and DED variables. 

Scans procedure block chain of ENTRY type 1 entries. 

Scans controlled chain for symbol and DED variables. 

Scans constants chain for DED variables. 

Allocates storage for DEDs- 

Allocates STATIC storage for symbol tables and DEDs. 

Scans STATIC chain for symbol and DED variables. 

Scans chain of members of particular structure for symbol and DED 
I variables. 

Allocates storage for symbol tables. 
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Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Chain 



j |Main Processing | | 
| Statement or Operation Type j Routine j Subroutines Used | 
|. + + ^ 

j Scans BEGIN-ENTRY for ENTRY type 1 |RA0 J SETCH, SCRUB1, SORCH j 

j entries | j j 
j. 1 + ^ 

j Scans AUTOMATIC chain from each | SETCH | EXDT, SRCH2 j 
j ENTRY type 1 entry | j j 
j. + 1 ^ 

JAdds ON conditions to first AUTO- |SC2 4 | None | 
jMATIC zone j j | 
j. 1 + ) 

JAdds temporaries (type 2) and inde-|SC31 |None j 
j pendent items to first zone j j j 

L___ _ __-L J. _ __ _ _ _ J 


r T T 1 
| Adds dependent items to subsequent |SC44 |None | 

j zones | j j 
j. _ + + 1 

| Determines list of dependencies |SC39 |SCNCHN, SRCH2 | 
| from INITIAL attribute | | j 

j. + 1 ., 

j Determines list of dependencies |SC40 | SCNCHN, SRCH2 j 
| from DEFINED attribute | | j 
j. + 1 ., 

| Determines list of dependencies for|SC35 |EXDT r SCNCHN j 
| array bound expressions j j j 
j. + + i, 

jDetermines list of dependencies for|SC50 J SCNCHN, SRCH2 j 
j string length expressions | | | 
L _ ___ J ___J. _ __J 


| Removes independent item dictionary | SCRUB1 | None j 
j references upon which items in the | j j 
j AUTOMATIC chain depend. I j | 

L_ _ X- __ J. J 
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Table PP1. Phase PP Routine/Subroutine Directory 



r t- 

I Routine/ Subroutine I 



Function 



h 



EXDT j Scans dimensions tables for second file statements with adjustable 

I bounds . 

RAO | Scans BEGIN-ENTRY for entry type 1 entries. 

RA1 | Tests for end of ENTRY type 1 chain. 

RA4 | Creates an AUTOMATIC chain delimiter. 

RA7 j Tests for end of chain. 

SCNCHN j Scans current AUTOMATIC chain; determines whether reference belongs 

| to it. 

SCRUBI | Removes independent item dictionary references from the stack of 

j dictionary references upon which items in the AUTOMATIC chain 
| depend. 

SC24 JAdds ON conditions to first automatic zone. 

SC31 j Adds temporaries (type 2) and independent items to first zone. 

SC35 j Determines list of dependencies for array bound expressions. 

SC39 | Determines list of dependencies from INITIAL attribute. 

SC40 j Determines list of dependencies from DEFINED attribute. 

SC44 j Adds dependent items to subsequent zones. 

SC50 | Determines list of dependencies for string length expressions. 

SETCHN | Scans AUTOMATIC chain from each ENTRY type 1 entry. 

SORCH j Sorts chain in order of dependencies; creates zone delimiter dic- 

tionary entries. 

SRCH2 J Scans second file statements for dictionary references of labels, 

| data items, and structures, which may belong to the current AUTOMAT- 
IC chains . 
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Table PT. 
r 



Phase PT Storage Allocation AUTOMATIC Storage 



■T T 

| Main Processing 
| Routine 



Statement or Operation Type 



4 



Subroutines Used 



Scans stacked CONTROLLED chain for JMYNAM 
largest dope vector j 



DVSIZE 



Initializes ENTRY type 1 chain scan|DSALOC 
and DSA 



MKSTAT 



Allocates slots for ON conditions j DSA4 



MKSTAT 



Allocates storage for workspace and|DSA10 
for DSA addressing vector | 



None 



Scans AUTOMATIC chain and allocates] DSA16 
storage for dope vectors J 



COPY, DVSIZE, INITDV, MKSTAT, 
STDVIN 



Allocates BUY workspace 



DSA17 



None 



Allocates storage for parameters JDSA19 



None 



Allocates storage for double preci-|DSA25 
sion variables 



None 



Allocates storage for single preci-|DSA29 
sion variables J 

-+- 



None 



Allocates storage for character 
strings 



DSA38 



None 



Allocates storage for bit strings 



DSA46 



None 



Allocates storage for arrays and |DSA5^ 
secondary dope vectors | 



COPY, INITDV, MKSTAT, SDVCDE 



+- 



Allocates storage for structures JDSA68 



COPY, MKSTAT 



Gets VDA and initializes dope vec- JDSA72 
tors for adjustable regions of | 
AUTOMATIC chain j 
h + 

J Allocates storage for DEFINED items |DSA98 
l JL 



COPY, INITDV, MKSTAT, STDVIN 



None 
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Table PT1. Phase PT Routine/Subroutine Directory 



r T- 

| Routine/Subroutine | 



Function 



C0NT1 

COPY 

DSALOC 

DSA4 

DSA5 

DSA10 

DSA16 

DSA17 

DSA19 (PU) 

DSA25 (PU) 

DSA29 (PU) 

DSA38 (PU) 

DSA46 (PU) 

DSA54 

DSA68 

DSA72 

DSA74 

DSA98 

DSA161 

DSA162 

DSA952 

DVSIZE (PU) 

INITDV 

MKSTAT 

MYNAM 

SDVCDE (PU) 

STDVIN 



Scans controlled chain for size of longest dope vector. 

Compiles code to copy skeleton dope vector into real dope vector. 

Initializes ENTRY type 1 chain scan and DSA. 

Allocates slots for ON conditions. 

Allocates standard save area and flag bytes. 

Allocates storage and workspace for DSA addressing vector. 

Scans AUTOMATIC chain and allocates dope vectors. 

Allocates BUY workspace. 

Allocates storage for parameters. 

Allocates storage for double precision variables. 

Allocates storage for single precision variables. 

Allocates storage for character strings. 

Allocates storage for bit strings. 

Allocates storage for arrays and secondary dope vectors. 

Allocates storage for structures. 

Initializes dope vectors for adjustable regions of AUTOMATIC chain. 

Stores pointer to skeleton second file statement. 

Allocates storage for DEFINED items. 

Allocates storage required for dope vectors. 

Compiles code to initialize dope vectors. 

Gets VDA for this region of AUTOMATIC chain if required. 

Determines size of dope vectors. 

Compiles code to initialize address slot in dope vector. 

Makes a second file statement. 

Scans CONTROLLED chains. 

Compiles code for secondary dope vectors. 

Initializes structure member dope vectors. 
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Table QF. Phase QF Storage Allocation Prologues 

r t 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans text for statement labels, 
PROCEDURE statements, BEGIN state- 
ments, BEGIN END statements, and 
end-of- program marker 



QF0000 



QBEGEP, QBPROL, QEOP, QHOVE, QPROL, 
QSL 



Processes statement label pseudo- 
code items 



QSL 



QMOVE 



+- 



Frees text storage at end of phase; 
releases control 



QEOP 



QMOVE 



Creates stereotyped prologue for a 
BEGIN block requiring a dynamic 
storage area 



QBPROL 



QADJAL, QFSKIP, QF0201, QMOVE 



-+- 



Creates stereotyped or special 
prologues for PROCEDURE statements, 
depending on conditions. Processes 
statement label pseudo-code items 



QPPROL 



QADJAL, QFSKIP, QF0201, QMOVE, 
QONPRL 



Creates a compiler label marking 
the return from a BEGIN block 



QBEGEP 



QADJAL, QF0201, QMOVE 



Creates a prologue for ON block 



QONPRL 



QADJAL, QFSKIP, QF0201 



Assembles code to initialize DSA 
dope vector data areas, and to 
allocate variable data areas 



QADJAL 



QM0VE1 



Skips second file statements 
following a block heading statement 



QFSKIP 



None 



4- 



Obtains new buffer and chains it to 
the previous one 



QF0201 



None 



+- 



Moves input text being skipped from 
input buffer to output buffer 



-+ 



QMOVE 
QMOVE 1 



None 



Moves a second file statement, 
pointed at by PARI, to the prologue 
being generated 



QMOVE 
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Table QF1. Phase QF Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



QADJAL 

QBEGEP 
QBPROL (QG) 

QEOP 
QFSKIP (QG) 

QF0000 

QF0201 (QG) 

QF0360 

QF0370 

QF0460 

QF0570 

QF0625 

QF0860 

QF1172 

QF1194 

QF1215 

QF1511 

QMOVE 

QM0VE1 

QONPRL (QH) 

QPPROL (QG) 

QSL 



Assembles code to initialize DSA dope vector, variable data areas, 
and to allocate variable data areas. 

Creates a compiler label marking the return from a BEGIN block- 
Creates stereotyped prologue for a BEGIN block requiring a dynamic 
storage area. 

Frees text storage at end of phase; releases control. 

Skips second file statements following a PROCEDURE or BEGIN state- 
ment. 

Scans text for statement labels, PROCEDURE statements, BEGIN state- 
ments, BEGIN END statements, and end-of- program marker. 

Moves code to output buffer; obtains new buffer if required. 

Tests for external procedure. 

Generates prologue for GET DSA. 

Tests for return expression. 

Generates code to copy argument and target addresses. 

Tests for entry points. 

Tests end of chain. 

Tests end of first region. 

Extracts mapping code from second file. 

Tests for storage required. 

Removes VDA accumulator assignment code from mapping code. 

Moves text from input buffer to output buffer. 

Moves second file statement to prologue being generated. 

Creates prologue for ON block. 

Creates stereotyped or special prologues for PROCEDURE statements, 
depending on conditions. 

Processes statement label pseudo-code items. 
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Table QJ. Phase QJ Storage Allocation Dynamic Storage 



r _____ _ _ T T _ -Tl 

| |Main Processing | | 
| Statement or Operation Type | Routine j Subroutines Used | 
L _ _ _x _ _ x _ _ _ _J 


| General scan of text for ALLOCATE, jGSl | ALLOC, BUY, BUYP, FREE, TRF1. | 
|BUY and FREE statements | | | 
j. x x ^ 

| Allocates items not requiring dope |AL20 |AL15, TRF2 | 
| vector J | I 
L _ _ _ X J. _ _ _ J 


r t T 1 
j Generates code to move skeleton |MOVEDV |TRF2 | 
| dope vector into workspace for J j j 
j controlled variables j | j 

|. x x ^ 

j Looks ahead to reverse pointers for|REVPT |GS1, TRF1 | 
| ALLOCATE statements | j j 
|. + x .j 

j Allocates storage for controlled |AL28 |GS1, LIBC1, LIBC2, SCANSF, TRF2 | 
| string j j | 
j. x + ^ 

| Allocate storage for controlled |AL27 | ABOUND, LIBCl, MOVEDV, PREVAL* | 
j array | | SCANSF, TRF2 | 

j. + + ^ 

j Allocates storage for controlled JAL29 |BNDEXP, LIBC1, MOVEDV, NXTREF., | 
| Structure | JNXTVAR, PREVAL, SCANSF, TRF2 | 
f + + ^ 

j Loads Library call parameter reg- | FREE |TRF2, TRF3 | 
j ister to free allocated storage | j j 
j. + + -1 

| Moves skeleton dope vector for | BUYP | TRF2 | 
j bought temporary | j | 

l_ _ ___ -L_ -J. _ J 


r t T — — 1 
JBuys storage for temporary array |BY14 | SCANSF, TRF2 | 
j. + + -1 

j Buys storage for temporary struc- JBY13 JLIBC4, NXTREF, NXTVAR, SCANSF, TRF2 | 
Jture | j j 
j. + + ^ 

j Places initial value code line for |AL15 |NXTRF, SCANSF | 
j controlled variables j j j 
L _ _ _ _ _ _ _x _ _ J. _ _ _ _J 


r T t 1 
| Skips scan register over initiali- | SKIPTX | GSl | 
| zation statements | | j 

J. + X ^ 

| Generates code to set a pointer to | PREVAL |TRF2 j 
| the previous allocation. | | j 
j. + + ^ 

| Searches dimension tables for | ABOUND | SCANSF | 
| adjustable bound expressions | | j 
j. + x 4 

j Generates code for temporary varia-|STMP |LIBC3, TRF2 | 
| bles requiring only a dope vector | j j 
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Table QJ1. Phase QJ Routine/Subroutine Directory 



r t- 

| ROUTINE/ SUBROUTINE | 



FUNCTION 



ABOUND (QK) 
ALLOC (QK) 
AL15 

AL20 (QK) 
AL27 (QK) 
AL28 (QK) 
AL29 (QK) 
BNDEXP 

BUY 

BUYP 

BY13 

BY14 

BY15 

FREE (QK) 

GS1 

LIBC1/LIBC2/LIBC4 

MOVEDV (QK) 

NXTREF (QK) 
NXTVAR (QK) 
PREVAL (QK) 
REVPT 
SCANSF 
SKIPTX 
STMP (QK) 

TRF1 
TRF2 
TRF3 



Searches dimension tables for adjustable bound expressions. 
Ascertains the type of allocate statement. 
Places initial value code line for controlled variables- 
Allocates items not requiring dope vector. 
Allocates storage for controlled arrays. 
Allocates storage for controlled strings. 
Allocates storage for controlled structures. 

Generates or extracts code to set the adjustable bounds of struc- 
tures 

Ascertains the type of buy. 

Moves skeleton dope vector for bought temporary. 
Buys storage for temporary structure. 
Buys storage for temporary array. 
Buys storage for temporary string. 

Loads Library call parameter register to free allocated storage- 
General scan of text for ALLOC ATE, BUY, and FREE statements. 

Places the library calling sequence for controlled storage in 
sequence in the text. 

Generates code to move skeleton dope vector into workspace for con- 
trolled variables. 

Obtains the next structure base element reference. 

Obtains the next varying array base element reference. 

Generates code to set a pointer to the previous allocation. 

Looks ahead to reverse pointers for ALLOCATE statements. 

Places second file statement in line in the text. 

Skips scan register over initialization statements. 

Generates code to buy storage for temporary variables which only 
require a dope vector. 

Transfers input text to output. 

Adds text skeletons to the output text. 

Adds the Library calling sequence to the output text. 
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Chart 09. Register Allocation Logical Phase Flowchart 



***** 

*09 * 

* Al* 



*****Ai********** 

♦FIRST SCAN RA* 
*_*_*_*_*_*_*_*_* 

* ESTABLISH * 
♦ADORESSIBILITY * 

* * 
***************** 



*****BX********** 
♦SECOND SCAN RF* 
*-*-*-*-*-*-*-*-* 

* ALLOCATE * 

* PHYSICAL * 

* REGISTERS * 
***************** 



***** 
*1C * 
* Al* 
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Chart RA. Phase RA Overall Logic Diagram 



***** 

*RA * 
* Al* 



*****A1 ********** 

* GET TEXT FOR * 

* OUTPUT £, INSER-* 

* TION FILES. * 

* GET SCRATCH * 

* STORAGE * 
***************** 



*****B1**** ****** 



***************** 



PROC/BEGIN 
*. .* 



*#** 

<f Bl * 

► * 
**** 



ACT6 

*****C2 ********** 

* STACK * 

* INFORMATION * 
...X* FOR PREVIOUS *. 

* PROC/BEGIN * 

* * 
***************** 



*****C3********** 

* GET NEW STACK * 

* ENTRY FOR NEW * 
X* BLOCK IN 

* SCRATCH * 

* STORAGE * 
***************** 



*. . 



. *. 
01 *. 

.* *. 

.* *. VES 


ACT7 

*****02* ********* 

* OOWN DATE * 

* STACK IN * 


*. .* 
*. .* 
*. .* 
* NO 


* STORAGE * 

* * 
***************** 



PL/I 
.STATEMENT.* 



.* STATEMENT 
. NO. DIAGN 
♦.REQUESTED. 



UPSN 

*****£ 3********** 

* GENERATE * 

* CODE TO * 
...X* UPDATE *. 

* STATEMENT * 

* ON-SLOT * 
***************** 



GENFLP 

*****£ 4********** 

* GENERATE * 

* CODE TO * 
...X* UPDATE *. 

* PREFIX * 

* ON-SLOTS * 
***************** 



,* PSEUDO- *. 

CODE 

♦INSTRUCTION* 

*. .* 



DRTEST, ADTEST 

*****P2 ********** 

* EXTRACT * 

* DICTIONARY * 
...X* REFERENCES *. 

* AND OFFSETS * 



***************** 



.*. 

F3 *. 

.* HAS *. 

.* CODE BEEN *. YES 

*. PRODUCED .*.... 

*. BEFORE .* 



*****F4* ********* 

* GENERATE * 
LOAD FROM * 

STORED *. 
ADDRESS * 

* * 
***************** 



.X* 



.*. 


ACT12 






DTY X 




.*• 


Gl ♦. 


*****Q2 ********** 


*****G3********** 


G4 *. 


.♦ ♦. 


* 


SKIP TO 


* 


* PRODUCE ANY 


* 


.* MUST 


* ABSOLUTE *. YES 


* 


END OF 


* 


* NECESSARY 


* 


.* CODE 






ABSOLUTE 
CODE 


* 

* 


* ADDRESSING 

* INSTRUCTIONS 


* 




*. MARKER .* 


* 


*. IN-LINE 


*. .* 


* 




* 


* IN SCRATCH 


* 


♦ . 


*. .* 


***************** 


***************** 


♦. .♦ 


* NO 




. 








* NO 



U25 

*****G5********** 
♦MOVE ADDRESSING* 

* INSTRUCTIONS ♦ 
...X* FROM SCRATCH *. 

* STORAGE * 

* TO IN-LINE * 
***************** 



X 

.*. 

HI *. 

.* *. 

♦ PROLOGUE 

INSERTION 
*. POINT 
*. .* 
*. .* 
♦ NO 


♦. YES 


**** 
ACT13 

*****H2********** 

♦ START CHAIN ♦ 

♦ TO ADDRESSING * 


* 


* IN INSERTION * 

* FILE * 
***************** 

X 

**** 



Jl *. 

► END * 

OF 

PROGRAM 



ADINST 

*****H4* ********* 
*IF WORTH-WHILE,* 
♦PUT INSTRUCTNS ♦ 

* IN INSERTION * 

* FILE PROLOG ♦ 

* ELSE IN-LINE * 
***************** 



ADD,ADD2 

*****J4********** 

* IF IN PROLOG, * 

* GENERATE ♦ 

* STORE OF ♦. 

* CALCULATED ♦ 

* ADDRESS * 
***************** 



*****j 5* ********* 

* GENERATE * 
LOAD OF * 
ADDRESS *. 

* STORED * 

* * 
***************** 



.X* 



***** 
*RF * 
* Al* 
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Chart RF. Phase RP Overall Logic Diagram 



***** 

*RF * 

* Al* 

* * 



*****A 1*********4 
♦GET TEXT BLOCK * 
♦FOR OUTPUT AND ♦ 
♦SCRATCH STORAGE* 

♦ FOR LISTS * 

* AND STACKS * 
***************** 



**** 
* * 

» Bl * 



**** 
P9INIT X 

*****B1 ********** 



•X* SCAN TEXT ♦ 

♦ * 

* * 
***************** 



.♦ USING *. 

PSEUDO- 

♦INSTRUCTION^ 



, X* 



*****C2********** 

♦ EXTRACT * 

♦ REGISTER * 
USAGE AND *. 

♦ IMPLIED * 

♦ BASES ♦ 
***************** 



OBREGS 

*****£ 3 ********** 

* SCAN REGISTER * 

* TABLE FOR * 
...X* REQUESTS ♦ 

* PRESENT * 



***************** 



.* ALL *. 
REGISTERS 
AVAILABLE 



.♦. LAD1 

El *. *****E2********** 

.* *. * GET FREE * 

.♦ADDRESSING *. YES ♦ REGISTER FROM * 

*. INSTRUCTION .♦ X*R£GISTER TABLE. ♦. 

♦. .* ♦GENERATE STORE * 

♦. .♦ * IF NONE ♦ 

*. .* ***************** 
* NO 



.♦. IN4 

Fl ♦. *****F2********** 

.* ♦. ♦ BRING IN * 

.♦ PROLOG ♦. YES ♦ ADDRESSING * 

*. INSERTION .♦ X^ INSTRUCTIONS 

♦. POINT 
♦ . 



♦ . .♦ 

♦ NO 



FROM 
♦INSERTION FILE * 
***************** 



.♦ ENOUGH *. 

FREE 

♦. REGISTERS. ♦ 



F3 ♦. 

.♦ SOME ♦. 

.♦ REGISTERS *. 

.HAVE PREVIOUS. 

♦.VALUE IN .♦ 

♦.STORE.* 



BRANCH 
IN OR OUT 
, POINT . 



STORE1, 
QB630 X 

*****E4*********# 

* GENERATE * 

* STORES OF * 
...X* REGISTERS IF * 

* BRANCH IN OR ♦ 

* OUT * 
***************** 



♦ GENERATE CODE ♦ 

(♦ TO LOAD ♦ 

♦ REGISTERS ♦ X 

♦ * . 
***************** . 



*****0 5 ********** 

♦ CONSTRUCT * 

♦ COMPLETED ♦ 
(♦INSTRUCTION AND^ 

* OUTPUT * 

* * 
***************** 



♦ NO 



ADIMOV 

*****G3 ********** 

♦ EXPAND ♦ 

* ADDRESSING ♦ 
..X* INSTRUCTIONS ♦. 

♦ IN OUTPUT ♦ 

* * 
***************** 



.♦PROC/PROC ♦. YES 
♦.BEGIN/BEGIN* ...... 

♦ . .♦ 



.* 



Jl 

DROP, 



*. 



*. 



• ^ ui\urt ■»*• t 

*.IPRM", EPRM' .♦. 

♦ . .* 

♦ . .♦ 

♦. .♦ 

* NO 



X 
.♦. 

Kl *. 
.♦ ♦. 
NO .* END ♦. 
...♦. OF .' 
*. PROGRAM .♦ 
♦ . .♦ 
*. .* 
* YES 



LPROC, 
LEND 

*****H2* ********* 

♦ UPDATE ♦ 

♦ OR DOWNDATE ♦ 
..X* STACK OF ♦. 

♦ BLOCK ENTRIES ♦ 

♦ ♦ 
***************** 



LDROP 

*****J2********** 

♦ DELETE ♦ 

♦ REFERENCES IN ♦ 
...X*REGISTER TABLE ♦. 

♦ ANO SCRATCH ♦ 

♦ STORAGE ♦ 
***************** 
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*TA * 

♦ Al* 

* * 



Table RA. Phase RA Register Allocation Addressibility Analysis 



| |Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
j. + + 4, 

| Controls scan of source |LAA |ACTl, ACT2„ ACT5, ACT8, ACT9, | 
j j | ACTIO, ADCBUF, GETSBF | 
L _ _ _ ___ _J- _ — -4- - - — - 4 


j Processes RX, RS, or SI instruc- |ACT3 | ADTEST, DRIEST | 

j tions II 1 
i ___ _-L ___J- _ __ — — — — . J 


j Processes SS instructions | ACT4 | ADTEST,, DRTEST | 
j. + + 4, 

j Compiles code for start of PL/I JACT15, ACT14, | ADCBUF, GENFLP, UPSN j 
| j Statement: 1. with label, 2. |ACT16 j | 
| without label, 3. compiler label j j | 
|._ + + ^ 

j Processes PROCEDURE and BEGIN |ACT6 |ADCBUF | 
| blocks | j | 
j. 1 + ^ 

| Processes END statements on PrOCE- | ACT7 J ADCBUF | 
JDURE or BEGIN blocks | j j 

|. + + ^ 

|Adds text to output string | ADCBUF |GETCBF | 

|. + + 4, 

JAdds text to insertion file |ADIBUF | GETIBF | 
h + + ^ 

j Obtains new source buffer | GETSBF |None | 
L _J._ _ _ J. _ _ _ _ _ J 


j Obtains next output buffer |GETCBF |None | 

j. + + ^ 

j Obtains next insertion file buffer | GETIBF |None | 
j. + + j. 

| Examines dictionary reference in | DRTEST | ADINST, DECOMP, SETBLK | 
j source I | I 

j. + + ^ 

| Produces recovery code when literal | ADTEST | ADCBUF | 
| offset greater than 4095 is met j j j 

L_ J._ _ _ J. « _ J 


1 Creates coded addressing instruc- | ADINST | ADCBUF,, ADIBUF | 
j tions II 1 



L i J. J 
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Table RA1. Phase RA Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



h 



■+- 



ACT1 

ACT2 

ACT 3 

ACT 4 

ACT 5 

ACT6 

ACT7 

ACT8 

ACT9 

ACTIO 

ACT12 

ACT13 

ACT14 

ACT15 

ACT 16 

ADD/ADD2 

ADCBUF 

ADIBUF 

ADINST 

ADTEST 

ATD 

DECOMP 

DRTEST (RB) 

DTY 

GENFLP 

GETCBF 

GETIBF 

GETSBF 

LAA 

L125 

SETBLK 

UPSN 



Copies non-special three-byte item to output. 

Copies non-special five-byte item to output. 

Processes RX„ RS, or SI instructions. 

Processes SS instructions. 

End of block routine. 

Processes PROCEDURE and BEGIN blocks. 

Processes END statements on PROCEDURE or BEGIN blocks. 

End of source text routine. 

Action of start of common block of prologue. 

Action at end of prologue. 

Copies absolute code to output stream. 

Creates ADI instruction at prologue insertion point. 

Compiles code for start of PL/I statement with label. 

Compiles code for start of PL/I statement without label. 

Compiles code for start of PL/I statement compiler label. 

Generates store of calculated address. 

Adds text to output string. 

Adds text to insertion file. 

Creates coded addressing instructions. 

Produces recovery code when literal offset greater than 4095 is met. 

Tests whether previous offset is out of bounds. 

Decodes dictionary reference. 

Examines dictionary reference in source. 

Scans step table and generates addressing instructions. 

Generates code to set bits on and off in a prefix ON-slot. 

Obtains next output buffer. 

Obtains next insertion file buffer. 

Obtains next source buffer. 

Scans input text. 

Moves addressing instructions to IN-LINE. 

Finds block number of referenced item. 

Generates code to keep the statement number slot in the DSA up to 
date. 



260 



Table RF. Phase RF Register Allocation Physical Registers 



H- 



— . T T 

| Main Processing | 
Statement or Operation Type | Routine j subroutines Used 
+ + _ 

Controls scan of text |Z9 | ADCBUF, ADIMOV. BRl f BR3, BR4, f 

| JGETNXT, LBAL. LBALR. LBCTR, LEOB. 

| JLEOP, LRl, LR3, LR4, LR6, LR7, LR9, 

| JLSHIFT, OBREGS 

+ + ,. 

Processes PROCEDURE or BEGIN state- | LPROC | None 

ment j j 
+ + 

Processes end of PROCEDURE or BEGIN J LEND |None 
block I | 
1 + 

Processes requests for registers; | OBREGS | BRGUSE, FRTEST, L0AD1, 
allocates physical registers | JST0RE1, ST0RE2, REGUSE 
+ + 

Compiles code to store symbolic | STORE2 | ADCBUF 
registers j j 
+ + 

Compiles code to store assigned | STORE1 | ADCBUF 
registers | j 
+ + 

Compiles load of physical registers | LOAD1 | ADCBUF 

1 + 

Scans list of free registers to |FRTEST | None 

make even- odd pair | j 
+ + 

Compiles load register | LOADRG | ADCBUF 
+ + 

Expands coded addressing instruc- |ADIMOV | ADCBUF 
tions I 



j. + + 



| Adds to output buffer 

L. 



ADCBUF 



None 



Table RF1. Phase RF Routine/Subroutine Directory 



r t- 

| Routine/Subroutine] 



Function 



j. + ^ 



ADCBUF 
ADIMOV 
BRGUSE 
BR1 (RH) 
BR3 (RH) 
BR4 (RH) 
FRTEST 
GETNXT 
LAD1 (RH) 
LB (RH) 



(Adds to output buffer. 

Expands coded addressing instructions. 

Tabulates use of base register in look-ahead. 

Processes RX branch instructions. 

Processes BCT instructions. 

Processes RR branch instructions. 

Scans list of free registers to make even-odd pair. 
^Obtains next block. 

Processes ADl (addressing) instructions. 

Constructs and puts out completed instruction. 



l J- J 
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Table RF1. Phase RF Routine/Subroutine Directory (cont'd) 

Function 



r t- 

| Routine/Subroutine | 



h 



LBAL (RH) 
LBALR (RH) 
LBCTR (RH) 
LDROP (RH) 
LEND (RH) 
LEOB (RH) 
LEOP 
LOAD1 
LOADRG 
LPROC (RH) 
LR1 (RH) 

LR3 (RH) 
LR4 (RH) 
LR6 (RH) 

LR7 (RH) 
LR9 (RH) 

LSHIFT (RH) 
OB560(RG) 
OB630 (RG) 
OB895 (RG) 
P9INIT (RH) 
OBREGS (RG) 
REGUSE 
STORE 1 
STORE2 
W4 (RH) 
Z9 (RH) 



processes BAL instructions. 

Processes BALR instructions. 

Processes BCTR instructions. 

Processes DROP pseudo- instruction. 

Loads end of PROCEDURE or BEGIN block. 

Processes end-of -block marker. 

Processes end- of- program marker. 

Compiles load of physical registers. 

Compiles load register. 

Processes PROCEDURE or BEGIN statement. 

Processes instructions in which first and second operands require 
loading, and the first is altered, e.g., AR. 

Processes floating-point instructions. 

Processes SS instructions. 

Processes instructions where a load of first operand is required, no 
operands are changed, e.g., ST. 

Processes SI instructions. 

Processes instructions in which no load of first operand is needed, 
and it is changed, e.g., LA. 

Processes shift instructions. 

Tests whether all registers are available. 

Generates stores of registers if branch in or out. 

Generates code to load registers. 

Main text scan. 

Processes requests for registers; allocates physical registers. 

Tabulates use of registers in look ahead. 

Compiles code to store assigned registers. 

Compiles code to store symbolic registers. 

Extracts ADIs at prologue insertion point. 

Controlling scan of text. 
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Chart 10. Final Assembly Logical Phase Flowchart 



***** 
*io * 

* Al* 



*****A1 ********** 
*DCB GEN TA* 
*-*-*-*-*-*-*-*-* 

* GENERATE * 

* DCLCB'S AND * 

* INCLUDE CARDS * 
***************** 



*****B1********** 
•PASS 1 TF* 
*-*-*-*-*-*-*-*-* 
♦ASSIGN OFFSETS * 

* TO LABELS * 

* * 
***************** 



OPTIMIZE .*. 
.* 

*. .* 



*****£ 2********** 
*OPT. TJ* 

*-*-,*- *-*-*-*-*-* 

.X* 'OPTIMIZE * 

* MVC'S AND B>S * 

* * 
***************** 



*****D1 ********** 
*ESD TO* 

*-*-*-*-*-*-*-*-* 

* GENERATE * 

* ESD CARDS * 

* * 
***************** 



*****£ % ********** 

♦PASS 2 TT* 
*-*-*-*-*-*-*-*w* 

* GENERATES * 
♦TXT, RLO CARDS ♦ 

* * 

***************** 



*****F1********** 
♦STATIC UA* 
*-*-*-*-*-*-*-*-* 

* STATIC ♦ 
♦INITIALIZATION * 

* * 
***************** 



.*. 

Gl ♦. 

.♦ *. 

.♦ < 

*. LIST TEXT 



*****G2 ********** 
♦LIST UF+ 

*-*-*-*-*-*-*-*-* 
<* LIST TEXT * 



***************** 



***** 

*XA * 

* Al* 

* * 



***** 
*XA * 
* Al* 
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***** 

♦TA * 
* Al* 



♦INITIALIZATION * 

* * 

* * 
***************** 



.* *. **** 

.* END OF *. YES * * 
♦.STATIC CHAIN .*....X* B5 * 
*. .* * * 



*****C1 ********** 

* * 

* GET NEXT * 

* ENTRY IN * 

* STATIC CHAIN * 

* * 
***************** 



* 


.* 

* 


FILE 
CONSTANT 

(08) 
*. 

*. .♦ 
* NO 



IL0110 X 

*****A3********** 

* FILENAMES * 
♦SKELETON DCLCB * 
♦CHANGE SYSPRINT^ 

* TO IHESPRT ♦ 

* ♦ 
***************** 



NO .♦ ANY ♦. 
...♦. ATTRIBUTES .♦ 
*. .♦ 



NO .♦ 

...♦. ATTRIBUTES 
♦. (98) 



♦ CHECK ATTRIBS ♦ 

♦ AND MAKE OPEN ♦ 

* CONTROL BLOCK ♦ 

* * 
***************** 



*****G1 ********** 

* MAKE DICT * 

♦ ENTRY AND * 
.♦ CHAIN FROM * 

♦ STATIC ENTRY * 

* * 
***************** 



♦ CHECK ATTRIBS ♦ 

♦ AND MAKE OPEN ♦ 

♦ CONTROL BLOCK ♦ 

♦ * 
***************** 



*****Q3********** 

♦ MOVE OCB INTO * 

♦ APPROPRIATE ♦ 

♦ PART OF DCLCB ♦■ 

♦ SKELETON ♦ 

♦ * 
***************** 



* GET ENVMNT ♦ 

* STRING ♦ 

* (MAY BE NULL) ♦ 

* * 
***************** 



IHEENV, 
IL0115 X 

*****p 3 ********** 

* * 
♦CHECK AND PLACED 

* IN SKELETON ♦ 

* DCLCB ♦ 

* * 
***************** 



IL0200 X 

*****B5* ********* 
♦RELEASE IEMTB. ♦ 

♦ LOAD IEMTC. ♦ 

♦ GET INCLUDE ♦ 

♦ MATRIX ENTRY ♦ 

♦ * 
***************** 



IHEINC 

*****£ 5* ********* 

♦ * 
♦GENERATE STRING^ 

♦ OF LIBRARY ♦ 

♦ MODULE NAMES ♦ 

♦ ♦ 
***************** 



IL0201 X 

*****05 ********** 

♦ DISECT STRING ♦ 

♦ AND FORM ♦ 

♦ INCLUDE CARD ♦ 

♦ IMAGES. ♦ 

♦ PUNCH CARDS ♦ 
***************** 



IL0206 .♦. 

E5 *. 
.♦ IS ♦. 
NO .* EXTERNAL ♦. 

♦. PROCEDURE .* 

X *. MAIN .♦ 

***** *. .* 

*TF * *. .* 

* Al* ♦ YES 

* * 



******p 5 *********** 

* OUTPUT AN ♦ 
INCLUDE IHESAPA 
* CARD ♦ 

************* 



***** 
*TF * 
* Al* 
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***** 

*TF * 
* Al* 



**** 

* * 

* A3 * 

* * 
**** 



iUOOOO X 

*4**4A1 ********** 

♦INITIALIZATION.* 

* GET SCRATCH * 

* STORAGE FOR * 

* LABEL TABLE. * 
*GET INPUT TEXT * 
***************** 

**** 



* Bl *.X 



**** 
ILC003 X 

*****B1* ********* 

* GET BRANCH * 

* LIST INDEX * 

* FROM TABLE 1 *X 

* USING CURRENT * 

* OP CODE * 
***************** 



END 

OF TEXT 

BLOCK 



* CHAIN TO * 
<* NEXT TEXT *. 

* BLOCK * 

* * 
***************** 



.* END OF 
. PROCEDURE 
*. MARKER . 



.* PLBS *. 
*. OR 

*. PCBS .* 
*. .* 



IL0024 X 

*****B2*** ******* 

* GET LENGTH * 

* OF CURRENT * 
....* ITEM FROM *X 

* TABLE 2. BUMP * 

* INPUT POINTER * 
***************** 



IL0O1O 

*****C2********** 

* SAVE CURRENT * 

* LOCN COUNTER * 
,..X* VALUE IN ETI *. 

* OF CONTAINING * 

* PROC (IF ANY) * 
***************** 



X 
***** 
*TJ * 
* Al* 



ILOOll 

*****Q2 ********** 

* PLACE TOTAL * 

* SIZE OF PROC * 
...X* IN LOCN1 SLOT *. 



OF 



*****C3********** 

* DETERMINE * 

* NUMBER OF * 

. X*ADCONS REQUIRED*. 

* FROM ESTIMATE * 
*OF SIZE IN ETI * 
***************** 



****** 3********** 

* ADO SIZE OF * 

* PROCEDURE TO * 

. X* CURRENT TOTAL *. 

* PROGRAM SIZE * 

* * 
***************** 



IL0015 

*****£ 2* ********* 

* PLACE SIZE * 

* OF PROCEDURE * 
,..X* SO FAR IN *. 

*LOCN2 OR LOCN3 * 

* SLOT OF ETI * 
***************** 



*****£ 3**** ****** 

* RESET LOCN * 

* COUNTER TO * 
,X*ZERO PLUS SPACE*. 

*FOR ADDRESSING * 

* ADCONS * 
***************** 



*****C4********** 

* * 

* SET LOCATION * 
<* COUNTER *. 

* TO ZERO * 

* * 
***************** 



*****q 4* ********* 

* RESTORE * 

* LOCATION * 
.X* COUNTER FROM *. 

*ET1 OF CONTAIN-* 

* ING PROCEDURE * 
***************** 



*****E4********** 

* SET PROLOGUE * 

* SWITCH * 
K* ON (PLBS) *. 



•*NON-BRANCH *. YES 
1". MACHINE .*.... 
*. INST .* 



.* BRANCH *. YES 
*.QR LOAD ADDR .*.... 
*. INST .* 



IL0014 

*****F2 ********** 

* ADD LENGTH OF * 

* INSTRUCTION * 
...X* TO LOCATION *. 

* COUNTER * 



***************** 



IL0020 

*****G2 ********** 

* DETERMINE * 

* AMOUNT OF * 
,..X* CODE NEEDED *. 

* TO PERFORM * 

* OPERATION * 
***************** 



*****G3 ********** 
*ADD TO LOCATION* 

* COUNTER AND * 
,X* SET IN THE *. 

* PRECEDING ADR * 

* PSEUDO-CODE * 
***************** 



IL0019 

*****H2 ********** 

* ASSIGN THE * 

* CURRENT * 
...X* LOCATION *. 

* COUNTER VALUE * 

* AS OFFSET * 
***************** 



* A3 * 

* * 
**** 
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***** 

*TJ * 

* Al* 

* * 



♦INITIALIZATION * 

* * 

* * 
***************** 



OPTIMA 

*****(; 1**** ****** 

♦GET FIRST TEXT * 

♦ BLOCK. SET * 

♦ LOCN COUNTER *X 

♦ AND PROGRAM * 

♦ SIZE TO ZERO * 
***************** 



IL0003 

*****01 ********** 

* GET BRANCH * 

* LIST INDEX ♦ 

* FROM TABLE 1 *X. 

* USING CURRENT * 

* OP CODE * 
***************** 



.♦ ♦. YES 

*. PROCEDURE ...... 

♦. MARKER .* 



*****C2********** 



***************** 



* D2 ♦. 



♦ *** . 
IL0024 X 

*****02*»* ******* 

* GET LENGTH * 

* OF CURRENT ♦ 
...* ITEM FROM *X. 

* TABLE 2. BUMP * 

* INPUT POINTER * 
***************** 



I LOO 10 

*****E2 ********** 

♦ IF SCANNING * 

♦ CURRENT PROC ♦ 
...X^ SAVE LOCN CTR ♦. 

♦VALUE IN L0CN1 ♦ 

♦ SLOT * 
***************** 



13 *. 

* *. 

END 
OF 
PROGRAM . 
*. . * 

♦. .* 
* YFS 



**#**B 3 ********** 

* * 

* RELEASE THE * 

* CURRENT TEXT * 

* BLOCK * 

* * 
***************** 



***** 
*T0 * 
* Al* 



*****[)3********** 

* SUSPEND SCAN * 
*FOR OTHER THAN * 

.♦ PROC AND END * 

* OF TEXT BLOCK * 

* * 
***************** 



.♦ IS ♦. 
.* OPTA 
*. FLAG ON IN 
*. NEW ET1 . 



IL1001 

*****E4*** ******* 

♦ EVALUATE NEW * 

♦ ADCON NEEDS. * 
...X*SET LOCN COUNT * 

♦ TO ZERO * 



***************** 



.♦. 

Fl ♦. 

.♦ ♦. 

END OF 


*. YES 


IL0011 

*****p 2* ********* 

* IF SCANNING ♦ 

* CURRENT PROC, * 


. MARKER 
*. .♦ 

♦ . .* 
* NO 


* 


♦ SIZE IN L0CN1 * 

* SLOT * 
***************** 



*****F 3 ********** 

* IF OPTB FLAG * 

* ON, SET OPTA * 
X* ON AND RESET *. 

* OPTB * 

* * 
***************** 



IL1101 

*****F4* ********* 

* RESTORE * 

* CONTEXT OF * 
...X* CONTAINING *. 

* PROCEDURE * 



***************** 



.♦. 
Gl *. 
.♦ MACH. ♦. 
.♦INST, PLBS,^. YES 
♦.PCBS, END OF ...... 

♦. BLOCK .♦ 



♦ ALL TREATED * 
<♦ IN SAME WAY * 

♦ AS IN IEMTF * 

♦ 4 
***************** 



**** 

* * 
.X^ D2 ♦ 

* * 
**** 



.♦. 


IL0019 


IL2006 .♦. 


1 *. 


*****H2 ********** 


H3 ♦. 


♦ . 


* * 


.♦ ♦. 


♦ . YES 


♦ ASSIGN NEW ♦ 


.♦ CHANGE ♦. YES 








.♦ 


♦ LABEL ♦ 


♦.TO < 4096. ♦ 


.♦ 


* * 


*. .♦ 


♦. .♦ 


***************** 


♦. •♦ 


♦ NO 




* NO 



*****H4* ********* 

♦ SET OPTB ON ♦ 

♦ IN ET1 OF ♦ 
X^ CURRENT PROC. ♦. 

♦ SET REPEAT ♦ 

♦ SWITCH ♦ 
***************** 



X 
.♦. 

Jl ♦. 

.♦ ♦. 

* 


*. 
*' 


YES 


IL0027 

*****J2********** 

♦ IF PREVIOUS ♦ 

♦ INST WAS MVC, ♦ 


*. 

♦ . .♦ 

♦ . .♦ 

♦ NO 

X 

***♦ 

♦ * 

* A3 * 

* * 
**** 




* COMPRESS * 

* * 
***************** 

X 
**** 

* * 

* D2 ♦ 

* * 
♦ ♦♦♦ 
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***** 

*T0 * 
* Al* 



*****A1 ********** 

* * 

* GENERATE BASE * 

* FOR ESO ENTRY * 

* NAMES * 

* * 
***************** 



*****BX ********** 

* PRODUCE ENTRY * 

* CARD IF * 

* EXTERNAL PROC * 

* HAS 'MAIN* * 

* OPTION * 
***************** 



* MAKE 6 * 

* STANDARD * 

* ESD ENTRIES * 

* * 
***************** 



*****D1********** 
♦MAKE SD TYPE E * 

* ENTRY FOR * 
♦THE MAIN CSECT * 
•IF EXT PROC HAS* 

* 'MAIN* OPTION * 
***************** 



LGOOl X 

*****E 1 ********** 

* MAKE ID TYPE * 
♦ENTRY FOR NAMES* 
*OF ALL ENTRIES * 
♦TO THE EXTERNAL* 

* PROC * 
***************** 



LG030 X 

*****P1 ********** 

* MAKE PR TYPE * 
♦ENTRY FOR DISP * 

* P.R. OF EACH * 

* BLOCK IN THE * 

* COMPILATION * 
***************** 



LG050 X 

*****51 ********** 

* SCAN * 

* EXTERNAL ♦ 
..X* SECTION OF * 

* STATIC CHAIN * 

* * 
***************** 



HI *. 
► < 

FILE 



* SCAN * 

* CONTROLLED *. 

* CHAIN ♦ 

* * 
***************** 



G4 *. 
.* DICT *. 
.* ENTRY FOR *. YES 
.X*. DECLARED ...... 

♦.VARIABLE .♦ 
♦ . 



*. 



*****J1 ********** 

* * 

* MAKE SD * 

* AND PR * 

* TYPE ENTRIES ♦ 

* * 
***************** 



.* EXTERNAL *. NO 
.X*. VARIABLE OR .*. .. 
*. CONDITION.* 
♦.NAME .* 



***** J 2 *♦♦******* 



***************** 

!x 



.* EXTERNAL *. 

.X*. ENTRY NAME OR. 

♦.FUNCTION .* 



*****J3********** 



***************** 



* NO 



.♦ DICT *. 

.* ENTRY FOR *. 

*. CONTROLLED . 

*. TEMP .* 



*****G5* ********* 



***************** 



YES .* DICT *. 
....*. ENTRY FOR . 
ALLOCATION OF 
VARIABLE* 



***** 
*TT * 
* Al* 
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***** 

*TT * 
* Al* 



*****A1********** 
♦INITIALIZATION * 

* SET SWITCHES * 
*FOR PUNCH/LOAD * 

* OPTIONS * 

* * 
***************** 



**** 

* * 

* 81 *.X 



**#* 
IL0C03 X 

*****B1 ********** 



***************** 



► S2 * 
* * 
**** 



IL0GG2 X 

#****B2*** ****** 

* GET LENGTH OF 

* CURRENT ITEM 
....* FROM TABLE 2. 

* BUMP 

* INPUT POINTER 
**************** 



IL0010 

*****C2 ********** 

* SAVE CURRENT * 

* LOCN CTR IN * 
,..X* L0CN1 SLOT OF *. 

* CONTAINING * 

* PROCEDURE ET1 * 
***************** 



END OF 
PROCEOURE 
. MARKER . 



1L00U 

******D2 *********** 
CLEAR 
* TEXT BUFFER. * 
...X RESTORE LOCN 

♦COUNTER FROM * 
LOCN1 IN ET1 
************* 



IL0O15, 
IL0016 

*****£2********** 

* UPDATE PROCLC * 
*6Y ADDING LOCN * 

,..X* COUNTER AND *. 

* ROUNDING UP * 

* TO FULL WORD * 
***************** 



*****£ 3********** 

♦LOCN5 = PROCLN * 

♦PROCLC = PROCLN* 

.X*PROCLN = PROCLC*. 

* «■ LENGTH OF '• * 

* PROC(LOCNl) * 
***************** 



*****D3 ********** 

* * 
♦RESTORE PROCLC * 

.X* FROM LOCN5 + *. 

* LOCN3 IN ETI * 

* ♦ 
***************** 



GENTXT 

*****^3********** 

* GENERATE TEXT * 

* AND RLD FOR * 
...X* THE REQUIRED ♦... 

* NUMBER OF * 

* ADCONS * 
***************** 



IL003 

******C 4* ********** 

SET CURRENT 

* LOCATION * 

...X COUNTER VALUE .. 

TO ZERO. CLEARS 

TEXT BUFFER 

************* 



**** 

* * 
X* B2 * 

* A 
**** 



GENTXT 

*****F 2 ***♦♦*♦♦** 

* GENERATE * 

* TEXT AND RLD * 
...X* INFORMATION ♦. 

* AND PLACE IN ♦ 

* TEXT BUFFER * 
***************** 



*****Q2* ******** 



it**************** 



.X* Bl ♦ 
* * 
**** 



no:.* end of 

...*. PROGRAM 



************* 



*****H 3 ********** 

* * 

* MARK CURRENT * 
<* TEXT BLOCK *. 

* UNWANTED * 

* * 
***************** 



X 
***** 
*UA * 
* A2* 
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***** 

*UA * 
* A2* 



♦INITIALIZATION *. 

* * 

* * 
***************** 



UA010 X 

*****C 2* ********* 
*START SCAN FOR * 

* ADDRESS * 

* CONSTANT *X. 

* INITIALIZATION * 

* * 
******** ********* 



END OF 
THIS PART 
. OF SCAN . 
*. .* 



*****£!********** 

* * 

* * 

* GET NEXT ITEM *X. 

* * 

* * 
***************** 



DOES 
ITEM NEED 

ADCON . 
*. .* 



*****F2* ********* 

* TXTMOV* 
a-*-*-*-*-*-*-*-* 

,* * 

* PROCESS ITEM * 

* * 
***************** 



* GET NEXT ITEM *X. 



***** A3 ********** 



***************** 



.* GET NEXT ITEM *X. 

* * 

* * 
***************** 



YES 
UA407 .*. 

Ct *. 

•♦SIMPLE *. 

.* DATA *. ND 

...X*. VARIABLE .*... 

*.OR LAbEL .* 

♦. .* 



UA22C, 
UA225, 
UA2 3C 



UA014 

*****D3 ********** 
* TXTMOV* 

*-*-*-*—*—*-*-*-* 
...X* PROCESS * 
♦CONSTANTS POOL ♦ 



***************** 



END OF 

STATIC 

CHAIN 



.* 
.* 
NO 



***** 

*uo * 

♦ A3* 



**,*************** 



END OF 

STATIC 

CHAIN 



***** 
*1JD * 
* A3* 



*****C 5* ********* 

* TXTMOV* 
*-*-*-*-*-*-*-*-* 

(* * 

* PROCESS ITFM * 

* * 
***************** 



***«£ 5********* 

* * 

* TXTMOV * 
K * 

*************** 



*****F 5* ********* 



**************** 4 



******5 5 *********** 



************* 



****H 5* ******** 
» * 

* RETURN * 
> 4 

*************** 



***************** 



UA025, 

UA0215, 

UA080 X 

*****J3********** 
* TXTMOV* 

*_*-*-*_*-*_*-*_* 



* PROCESS ITEM * 

* * 
***************** 
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***** 

*uo * 

* A3* 
* * 



***************** 



.* 



B3 



*. 



YES .* END *. 
,...*. OF CHAIN .1 
*. .* 

*. .* 
*. •* 
* NO 



***************** 



***************** 





.* 


END OF 




X* 


.THIS PART 


(IF 




* 


SCAN 








*. . 


* 






*. .* 








* NO 





*****Ei********** 

* * 

* GET NEXT ITEM *X. 

* * 

* * 
***************** 



E2 *-. 

.* DOES *. 

ITEM 

NEED DOPE 

. VECTOR . 



*****F2********** 

* * 

* * 
.* PROCESS ITEM * 

* * 

* * 
***************** 



***************** 



***************** 



.* SIMPLE *. YES * * 

.X*.DATA VARIABLE.* X* PROCESS ITEM * 

*.OR LABEL .* * * 

*. .* * * 

*. .* ***************** 



.* GET NEXT ITEM *X. 

* * 

* * 
***************** 



***************** 



***** 

*UF * 

* Al* 

* * 



*#***J3********** 



* INITIALIZE * 
*CSECT FOR ITEM *. 



***************** 



***************** 



*****J 5* ********* 

* * 

.X* PROCESS ITEM * 

* * 

* * 
***************** 
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***** 

*UF * 
* Al* 



♦INITIALIZATION.* 
♦TRANSLATE TEXT * 
*T0 EXTERN COOE * 
* * 

***************** 



IL0003 

*****gl********** 

* GET BRANCH * 

* LIST INOEX * 

* FROM TABLE 1 *X. 

* USING CURRENT * 

* OP CODE * 
***************** 



END OF *. YES 
PROCEDURE .*.... 
■ MARKER .* 



ILC002 X 

*****D2 ********** 

* GET LENGTH OF * 

* CURRENT ITEM * 
,...* FROM TABLE 2. * 

* BUMP * 

* INPUT POINTER * 
***************** 



IL0010 

*****C 2* ********* 

* SAVE CURRENT * 

* LOCN CTR IN * 
,..X* LOCN1 SLOT OF *. 

* CONTAINING * 

* PROCEDURE ET1 * 
***************** 



ILOOll 

*****#D2 *********** 
PRINT * END 
* PROCEDURE AND * 
,..X ENTRY NAMES 

*AND STATEMENT* 

NUMBER 

************* 



*****C3********** 

* SET LOCN CTR * 

* TO ZERO AND * 
<*PROCLC (COUNTER*. 

* BASE) FROM * 

* LOCN5 IN ET1 * 
***************** 



*****03********** 

* RESTORE LOCN * 

* COUNTER FROM * 
<♦ LOCN1 AND *. 

* PROCLC FROM * 

* LOCN3 + LOCN5 * 
***************** 



X 


IL0015, 




.*. 


IL0016 


PRINIT 


1 *. 


******£? *********** 


******£ 3*********** 


*. 


PRINT PROLOGUE 


PRINT LIST 


PLBS, *• YES 


* OR * 


* OF ADCONS * 








.* 


* SET * 


FOR ADDRESSING* 


.* 


LOCN CTR = 


PURPOSES 


*. .* 


************* 


************* 



IL003 

******C 4* ********** 
PRINT 
* * PROCEDURE * 
...X FOLLOWED BY 

* ENTRY NAMES * 
AND STAT NO. 
************* 



* * 
X* B2 * 

* * 
**** 



Fl *. 

►" MACHINE **. 
INSTRUCTION . 
k. .* 

.* 



*. 



IL0012.IL0013, 

IL0014.IL00 20, 

IL0026.IL0027, 

IL0028, IL0O32 

*****F 2 ********** 
*SET UP LOCATION* 

* COUNTER AND * 
...X* MNEMONIC AND *. 

* HEX OP CODES * 

* IN BUFFER * 
***************** 



IL2O05 
NM0O03 

*****p 3 ********** 

* IDENTIFY * 

* OPERANDS AND * 
...X* EXPRESS IN *. 

♦TERMS OF SOURCE* 

* IDENTIFIERS * 
***************** 



******p 4* ********** 

PRINT LINE 

* AND * 

.X INCREMENT 

* LOCATION * 

COUNTER 

************* 



* NO 



X 

.*. 

Gl *. 

.* *. 

.* LABEL *. YES 


IL0018, 
IL0019 

******52 *********** 

PRINT STATEMENT 

* NUMBER * 


**** 
* 


*. NUMBER .* 
*. .* 


* IDENTIFIERS * 


* 
**** 



************* 



.*. 

HI *. 
.* * 
.* END OF 
*. PROGRAM 
*• / 



♦PRINT LINE WITH* 
.X OPERATION 
♦MNEMONIC END * 

************* 
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***** 

*XA * 
* Al* 



*****A1********** 



***************** 



*****d ********** 

* LOAD * 

* MESSAGE * 

* ADDRESS *. 

* BLOCK * 

* * 
***************** 



XA01 

*****A2********** 

* ESTABLISH * 

* LEVEL OF * 
DIAGNOSTIC * 

PRINT OUT * 



***************** 



.X* 



XA1 
YES 



B2 *• 

ANY *. 
ENTRIES *. NO 
*. TO BE .*... 

♦.PROCESSED.* 



.* 



*****£ 2 ********** 



* SCAN * 

* MESSAGE *. 

* CHAINS * 

* * 

K ******* ********* 



************* 



*****(; 3 ********** 

* MAKE UP * 

* LIST OF * 
,X* BLOCKS *. 

* NEEDED * 

* * 
***************** 



***** 
*AA * 
* K3* 



*****C 4* ********* 

* RELEASE * 

* MESSAGE * 
•X* ADDRESS * 

* BLOCK * 

* * 
***************** 



.* ALL *. 
ENTRIES 

*. PROCESSED.* 



***** 
*AA * 
* K3* 



*****£! ********** 

* GET TO * 

* HEAD OF *. 

* CHAIN * 

* * 
***************** 



* LOAD * 
<* NEXT *. 

* BLOCK * 

* * 
***************** 



THIS A *. YES 
NEW CHAIN .*.... 



XA12A 

******(: 4.***** ****** 
PRINT OUT 
* APPROPRIATE * 
...X SEVERITY 

* HEADER * 



************* 



GET TO 

NEXT ENTRY 

IN CHAIN 



******* 



* ACCESS * 

* MESSAGE *. 

* SKELETON * 

* * 
***************** 



.* SKELETON 
.X*. IN CURRENT 
*. BLOCK . 



*****H2 ********** 

* MESSAGE * 

* NUMBER * 

* TO PRINT *. 

* BUFFER * 

* * 
***************** 



END 

OF 

CHAIN 



H3 *. 
f HAS *. 
IT GOT * 
STATEMENT 
NUMBER .0 



, X* D4 * 
* 4 
**** 



* SCAN * 
<* MESSAGE *. 

* SKELETON * 

* * 
***************** 



.X* 



***J3********** 

BUILD * 

MESSAGE * 

TEXT IN *. 

* PRINT * 

* BUFFER * 
***************** 



*****H4* ********* 

* STATEMENT * 

* NUMBER * 
TO PRINT * 

* BUFFER * 

* * 
***************** 



.X* 



******J4*********** 

* PUT OUT *^ 
.X DIAGNOSTIC 

* MESSAGE * 

************* 



.* WAS * 






**** 


* THIS 


* 


YES 


* 


LAST ENTRY 




*.. . 


X* 04 


*.IN CHAIN 


* 




* 


*. .* 






**** 
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Table TA. Phase TA Final Assembly DCLCB Generation 

r 



T 1" 

|Main Processing | 
1 Routine 



Statement or Operation Type 



Subroutines Used 



-+■ 



Scans STATIC chain 



IL0100 



IL0110, IL0120 



Generates DECLARE control block 
entry 



IL0110 



| CHKATT, IHEENV 
I 
-+■ 



Generates OPEN control block entry |IL0120 



CHKATT 
4 

IIHEINC, PUNCH 
.J. 



Generates INCLUDE cards 



IL0200 



Table TA1. Phase TA Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



CHKATT 
IHEENV (TB) 

IHEINC (TO 

IL0000 

IL0100 

IL0110 

IL011U 

IL0115 

IL0117 

IL0118 

IL0120 

IL0200 

IL0201 

IL0206 

IL0207 

PUNCH 



Checks attributes and creates control words. 

Checks environment options, and inserts them into DECLARE control 
blocks. 

Creates string of module names for inclusion in control blocks. 

Entry point from compiler control. 

Scans STATIC chain 

Generates DECLARE control block entry. 

Test point for environment entry. 

Return point from environment processing. 

Processes file attributes entry. 

Branch point of SYSPRINT file found. 

Generates OPEN control block entry. 

Generates INCLUDE cards. 

Return point in INCLUDE card output routine. 

Tests MAIN flag. 

Releases control. 

Punches cards 
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Table TF. Phase TF Final Assembly Pass 1 

r t t 

| Main Processing 
Statement or Operation Type | Routine 



■+- 



■+- 



Subroutines Used 



Scans text 



IL0024 



None 



Assigns offsets to labels 



IL0019 



FINE21, NEXTSL 



Increments location counter for 
machine instructions 



IL0014 



None 



Determines code for instructions 
which refer to labels 



IL0020 



FINEQ1 



Initializes location counter at 
start of procedure 



IL0010 



None 



■+ 

jILOOll 



Stores size of procedure and 
resumes containing procedure 



None 



Table TF1. Phase TF Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 

h 



Function 



FINEQ1 
ILOOOO 
IL0003 
IL0010 
IL0011 
IL0014 
IL0015 
IL0017 
IL0019 
IL0020 
IL0022 
IL0024 
NEXTSL 



Locates label number table entries. 

Entry point from compiler control. 

Entry point to scan from initialization routine. 

Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedure. 

Increments location counter for machine instructions. 

Processes the start of prologues. 

Releases control. 

Assigns offsets to labels. 

Determines code for instructions which refer to labels*. 

Processes end-of-block pseudo-code item. 

Scans text. 

Determines multiple statement label entries in dictionary. 
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Table TJ. Phase TJ Final Assembly Optimization 



r _____ _ — ___ — — _ — — _ ., 

| |Main Process ing| | 
| Statement or Operation Type | Routine | Subroutines Used j 
|. + + ^ 

| Controls phase |IL00O0 | OPTIMA | 
j. 1 + ^ 

j Maintains location counter for |IL0014 |None | 
| machine instructions | | | 
j. + + ) 

j Assigns offsets to labels JIL0019 JCOMRTN, FINEQl, NEXTSL j 

j. + + ^ 

j Determines code for instructions | IL0020 | FINEQ1 | 
| which refer to labels | j j 

i. _ + + ^ 

| Initialize location counter at JIL0010 jNone I 
j start of procedure | J j 
Y + + ^ 

{stores size of procedure for |IL0011 JNone | 
| machine instructions j j j 
j. + + ^ 

j Reduces number of MVC instructions |IL0027 | OFFSET,, OSMRTN | 

j. 1 + 4 

(Determines offset from a given | OFFSET | None | 
j dictionary reference j j j 
L _ _ _ J. _ x _ _ _ _ J 


Table TJ1. Phase TJ Routine/subroutine Directory 


r ~ ~ "*t- ~ ~ i 

| Routine/Subroutine | Function | 

l + ^ 



COMRTN 

FINEQ1 

IL0000 

IL0003 

IL0010 

IL0011 

IL0012 

IL0014 

IL0019 

IL0020 

IL0024 

IL0027 

IL1001 

IL1101 

"NEXTSL 

OFFSET (TK) 

OPTIMA 

OSMRTN 



Determines whether further optimization is possible. 
Locates label number table entries- 
Controls phase. 

Entry point to scan loop from initialization. 
Initializes location counter at start of procedure. 
Stores size of procedure and resumes containing procedure. 
Processes machine instructions, etc. 
Maintains location counter for machine instructions. 
Assigns offsets to labels. 

Determines code for instructions which refer to labels. 
Gets pseudo-code item length and updates text pointer. 
Elides MVC instructions. 

Evaluates new ADCON needs. Sets location counter to zero. 
Restores content of containing procedure. 
Looks for equivalent statement labels. 
Determines offset from a given dictionary reference. 
Scans text. 
Scans ahead for literal offsets. 
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Table TO. Phase TO Final Assembly External Symbol Dictionary 

r 



t T 

Main Processing 
Routine 



Statement or Operation Type 



I-- 

| Constructs first six standard ESD 

| entries 



Subroutines Used 



LG401 



MOVE, NAME, ERROR 



J. 

| Constructs entries for external 
| procedure labels 



LG001 



MOVE, ERROR 



j. 

| Constructs PR type entries for each 
| block and procedure 



LG030 



MOVE, NAME 



Constructs entries for external 
variables and external entry names 



LG050 



MOVE, ERROR 



j Constructs entries for controlled 
J variables and task names 



LG090 



MOVE, NAME* ERROR 



Table T01. Phase TO Routine/Subroutine Directory 



r t- 

i ROUTINE/SUBROUTINE I 



FUNCTION 



k- 



ERROR 

LG001 

LG030 

LG050 

LG055 

LG080 

LG085 

LG090 

LG093 

LG401 

MOVE 

NAME 



Truncates over-length external identifier, generates error message. 

Constructs entries for external procedure labels. 

Constructs PR type entries for each block and procedure. 

Constructs entries for external variables and external entry names. 

Processes ON-conditions and external variables. 

Processes external entry names. 

Processes FILE constants. 

Constructs entries for controlled variables and task names. 

Inserts name in ESD entry for CONTROLLED. 

Constructs first six standard ESD entries. 

Moves ESD entries to card buffers, and puts out buffer when full. 

Generates names for pseudo-registers. 
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Table TT. Phase TT Final Assembly Pass 2 



r — - ~ — t - — - t - i 

| I Main Processing | | 
| Statement or Operation Type | Routine | Subroutines used j 
y + + ^ 

| Scans text JIL0002 |None j 
j. + + ^ 

(Generates text for RR instructions |IL0012 | GENTXT | 

j. + + .! 

j Generates Text for RX non- branch |IL0013 |EOBRTN, GENTXT, OFFSET | 
| instructions LM, STM, and SI Types j j | 

j. + + -1 

(Generates text for shift instruc- | IL0027 J GENTXT | 
| tions | | j 

j. + + 1 

(Generates Text for ss instructions |IL0014 |EOBRTN, GENTXT, OFFSET | 

|. + + 4 

|Sets up trace information and num- |IL0019 jGENTXT | 
| bers compiler labels j | j 
j. + + ^ 

(Generates text for branch and load |IL0020 |FINEQ1, GENTXT, OFFSET j 
(address instructions | j j 
j. + + ^ 

(Initializes location counter at |IL0010 JPUNCHT | 
j start of procedure | J j 
|. + + ^ 

j Resumes containing procedure at end|IL0011 |PUNCHT | 
j of procedure | j j 
L _ x___4.__ «_ _ _ -. J 


r TT 1 
| Moves Text into card image | GENTXT | PUNCHT | 

L __ __-L __-L___ _ _J 


r T 1 1 
( Punches cards ensuring that RLD | PUNCHT | CARDOU | 
j cards follow related TXT card J j j 
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Table TT1. Phase TT Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 
j. 



Function 



CARDOU 
EOBRTN 
FINEQ1 
GENTXT 
IL0002 
IL0003 
IL0010 
IL0011 
IL0012 
IL0013 

IL0014 
IL0015 
IL0016 
IL0017 
IL0019 
IL0020 
IL0022 
IL0027 
OFFSET (TU) 

PUNCHT 



Directs card image to load file or punch file. 

Chains to next input text block. 

Locates label number table entries. 

Moves text into card image. 

Scans text. 

Entry point to scan from initialization routines. 

Initializes location counter at start of procedure. 

Resumes containing procedure at end of procedure. 

Generates text for RR instructions. 

Generates text for RX non-branch branch instructions, LM» STM, and 
SI type. 

Generates text for SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine. 

Sets up trace information and numbers compiler labels. 

Generates text for branch and load address instructions. 

End-of- block routine. 

Generates text for shift instructions. 

Determines offset and relocation pointer from given dictionary ref- 
erence. 

Punches cards ensuring that RLD cards follow related TXT card. 
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Table UA 
r 



Phase UA Final Assembly Initial Values, Pass 1 









T 




1 






J Main Process 


ing| 






Statement or Operation Type 


| Routine 




Subroutines Used 








-4. _ _ 


_ 4. _ 










T 


t 






Scans STATIC chain to beginning of 


|UA001 


|UA200, 


UA220, (JA230 




external section 














J. _ 


4. _ 










T 


T 






Initializes 


scalar variables 


|UA200 
_x _ 


| TXTMOV 
4. 










T 


— T — 






Initializes 


BCD for label 


|UA220 
-4— — 


[RLDMOV, 
_ 4. 


TXTMOV 










t 






Initializes 


DED for temporary 


|UA230 
_x_ 


| TXTMOV 
_ 4. 


















Initializes 


address constants. 


|UA010 


|UAU01, 


UA403, UA40U, UA405, UAU06 | 






-4. _ _ _ _ 


4. _ 










t 


— T 






initializes 


symbol table entries 


|UA080 

-4- - - 


| RLDMOV, 
4. _ 


TXTMOV 








T 


T 






Initializes 


address slots for 


JUA403 


| RLDMOV, 


TXTMOV 




external variables 














_4. 


_ 4. 










t 


T 






Initializes 


address slots for func- 


-|UA401 


| RLDMOV, 


TXTMOV 




tions and programmer-defined 0N- 










condition names 














_4. 


4. 










T 


1 — 






Initializes 


address slots for label |UA4 04 


| RLDMOV, 


TXTMOV 




constants 




_4_ 


L _ 










T 


T 






Initializes 


address slots for entry |UA405 


| RLDMOV, 


TXTMOV 




labels 




-4— - 


— 4. 












T 






Initializes 


file attribute entries 


|UA406 


| RLDMOV, 


TXTMOV 




and files 




-4- - - 


_ 4. 










t 


T — 






Initializes 


constants pool 


|UA014 

_4_ 


| RLDMOV, 
4. 


TXTMOV 
















Initializes 


dope vector skeletons 


|UA021 
_4._ _ _ 


| TXTMOV 
L «_ 










T 


t 






Initializes 


argument lists 


|UA025 


| RLDMOV, 


TXTMOV 





L J. J. J 
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Table UA1. Phase UA Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



Moves card images to punch and/or load file- 
Moves RLD entries to card buffer. 
Moves TXT entries to card buffer 
Entry point from compiler control. 

Scans STATIC chain to start of external section, to initialize 
scalar variables. 

Return point for branches taken in first scan. 

Initializes address constants. 

Return point for branches taken in second scan. 

Initializes constants pool. 

Initializes dope vector skeletons. 

Produces text for dope vector skeleton. 

Initializes argument lists. 

Return point for branches taken in last scan. 

Initializes symbol table entries. 

initializes one-word CSECT * IHEMAIN' . 

Exit from UA to compiler control and UD. 

Initializes scalar variables. 

Initializes BCD for label. 

Entry to label routines for label variable BCDs. 

Initializes DED and FED for temporary. 

Initializes address slots for functions and programmer- defined 0N- 
condition names. 

Initializes address slots for external variables. 

Initializes address slots for label constants. 

Initializes address slots for entry labels. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Makes text for file attributes entry. 

Initializes array variables. 

Initializes arrays of varying strings. 

Initializes bit arrays. 

Completes packing of bit strings in structures or arrays. 



| OUTPUT 


(UB) | 


| RLDMOV 


(UB) | 


j TXTMOV 


(UB) | 


|UA0000 




|UA001 




|UA0015 




j UA010 




|UA013 




|UA014 


(UC) | 


|UA021 




|UA0215 


(UC) j 


|UA025 




JUA033 




|UA080 


(UC) J 


|UA100 


(UC) J 


|UA100A 




|UA200 




|UA220 


(UC) ] 


|UA225 


(UC) | 


|UA230 


(UC) | 


|UA401 




|UAU03 




|UA404 




|UAU05 




|UA406 




j UA407 




|UCINIT 


(UC) | 


| UCUPDT 


(UC) f 


|UC0080 


(UC) | 


|TIDY (UC) | 
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Table UD. Phase UD Final Assembly Initial Values, Pass 2 

r 



T T 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+■ 



Subroutines Used 



Scans STATIC chain to beginning of 
external section 



UA001 



UA200, UA220, UA230 



Initializes scalar variables 



UA200 



TXTMOV (UB) 



+- 



Scans STATIC chain to initialize 
internal dope vectors 



UA003 



UA300, UA320, UA340, UA360* UA365 



Initializes dope vectors for 
internal strings 



UA300 



RLDMOV (UB) , TXTMOV (UB) 



+- 



Initializes dope vectors for inter- 
nal data arrays 



UA320 



RLDMOV (UB), TXTMOV (UB) 



Initializes dope vectors for arrays 
of varying strings 



UA340 



TXTMOV (UB) , UCUPDT (UC) 



Initializes dope vectors for inter- 
nal label arrays 



UA360 



RLDMOV (UB), TXTMOV (UB) 



+- 



Initializes dope vectors for inter- 
nal structures 



UA365 



UA300, UA320* UA360 



■+- 



Initializes arrays 



UA030 



RLDMOV (UB), TXTMOV (UB), 
UCINIT (UC) 



Initializes structures 



UA040 



TXTMOV (UB), UA200, UC0800 (UC) , 
TIDY (UC) 



-H 



Initializes one word CSECT 
•IHEMAIN' 



UA100 



OUTPUT, RLDMOV, TXTMOV (all in UB) 



Initializes CSECT for STATIC 
external variables 



UA1005 



OUTPUT (UB) , UA030, UA200, UA300, 
UA320, UA360, UA365, UA401, UA406 



h 



Makes up END card and terminates 
phase 



UA120 



OUTPUT (UB) 



.+ -I 

| TXTMOV (UB), UC0080 (UC), TIDY (UC) j 
.X J 



Initializes array variables 



| UCINIT (UC) 
.j. 
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Table UDl. Phase UD Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



UAOOO 
UA001 

UA0015 
UA003 

UA021 

UA030 

UA031 

UA033 

UA034 

UA040 

UA100 (UC) 

UA105 

UA120 

UA200 

UA207 

UA300 

UA320 

UA340 

U&360 

UA365 

UA401 

UA406 

UA1005 



Entry point from UA and compiler control. 

Scans STATIC chain to start of external section* to initialize sca- 
lar variables. 

Return point for branches taken in first scan. 

Scans STATIC chain to initialize all dope vectors for internal vari- 
ables. 

Start of scan for arrays and structures. 

Initializes arrays. 

produces RLD entry for label array virtual origin. 

Return point for branches taken in array scan. 

Produces RLD entry for data array virtual origin. 

Initializes structures. 

Initializes IHEMAIN CSECT. 

Return point for branches taken in external scan. 

Makes up END card and terminates phase. 

Initializes scalar variables. 

Lists label variables. 

Initializes dope vectors for internal strings. 

Initializes dope vectors for internal data arrays. 

Initializes dope vectors for arrays of varying strings. 

Initializes dope vectors for internal label arrays. 

Initializes dope vectors for internal structures. 

Initializes address slots for functions and programmer- defined 0N- 
condition names. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Initializes CSECTs for STATIC external variables. 
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Table UF. Phase UF Final Assembly Object Listing 
r 























| Main Processing] 










Statement or Operation Type 


| Routine 




Subroutines used 








-j. _ _ _ _ _ 


4. 














T 


T — 










Scans 


Text 


|IL0002 


|None 
±_ 


























Lists 


RR instructions 


|IL0012 
-4- - — 


J PRINIT, 
J. 


RRRTN 












T 












Lists 


RX non-branch instructions 


|IL0013 


| EXRTN, 
j SECOND 


PRINIT, 


PRNTOU, 


PRNTVF, 








~T ~ ~ 












Lists 


SS instructions 


|IL0014 

I _ _ _ 


JEOBRTN, 
—4- - 


PRINIT., 


PRNTOU, 


SSRTN 








T 


t 










Lists 


shift instructions 


|IL0026 
-4- - 


| PRINIT, 
4- - - 


PRNTOU, 


PRNTVF 










t 












Lists 


LM and STM 


|IL0027 
— I— 


| PRINIT, 


PRNTOU, 


PRNTVF, 


SECOND 








T 


t 










Lists 


SI instructions 


| IL0028 


j CHARVF, 
| SECOND, 
4— - 


PRINIT, 
SSRTN 


PRNTOU, 


PRNTVF 








T 


T 










Lists 


branch and load address 


|IL0020 


|IL0013, 


NAMEIT, 


NAMEQU # 


PRINIT w 




instructions 




| RRRTN 










































Lists 


labels 


JIL0019 


| NAMEVF, 


NEXTEL, 


NEXTSL # 










-4- — 


| PRNTLC, 
—4- — 


PRNTOU, 


PRNTVF, 


STATMN 








t 












Lists 


procedure names 


|IL0010 
_J._ _ _ _ 


| NAMEVF,, 
4-— - 


NEXTEL, 


PRNTOU, 


STATMN 




















Lists 


ends of procedures 


|IL0011 
_j. _ 


| NAMEVF, 

L _ 


NEXTEL, 


PRNTOU 






















Scans 


ahead for literal offsets; 


| SECOND 


| EOBRTN 










inserts second instruction byte 














into print image 


















-4- - 


-4- - 














T 


T 










Generates listing of text for base 


j SSRTN, BXRTN 


| ABSOFF, 


ADDEND, 


NAMEIT, 


NAMEQU„ 




offset pair 




| PRNTVF 














-4. _ _ _ 


j. 
















t 










Names 


generated label number 


|NAMEQU 

-4- — — 


|DECINT, 


FINEQ1 












T 


t 










Inserts location counter value, and | PRINIT 


| PRNTLC 










hexadecimal and mnemonic operation 














codes 


in print line 






























Moves 


variable length item into 


| PRNTVF 


| PRNTOU 










variable field part of print line 














































Lists 


statement numbers 


| STATMN 
-4- — 


| STATNO 
— 4. - _ 














t 


t 










Determines name and offset from 


| NAMEIT 


JDECINT, 


HEXINT 








dictionary reference 































_J 
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Table UF1. Phase UF Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



j. + ^ 



ABSOFF 

ADDEND 

BXRTN/SSRTN 

CHARVF (UG) 

DEC INT (,UG) 

EOBRTN 

FINEQ1 

HEXINT (UG) 

ILOOOO 

IL0002 

IL0003 

IL0010 (UG) 

IL0011 (UG) 

IL0012 

IL0013 

IL0014 

IL0015 

IL0016 

IL0017 

IL0018 

IL0019 (UG) 

IL0020 

IL0026 

IL0027 

IL0028 

IL0032 

IL1003 (UG) 

IL2005 

NAME IT 

NAMEQU 

NAMEVF (UG) 

NEXTEL (UG) 



Appends literal offsets to operands in variable part of print line. 
[Appends signed literal offsets to operands. 
[Generate listing of text for base offset pair. 

Places one character in variable field of print line image- 
Converts binary to externally coded decimal- 
chains to next input block. 

Locates label number table entries. 

Converts binary to externally coded hexadecimal. 

Entry point from compiler control. 

Scans text. 
(Entry to scan from initialization routines. 

Lists procedure names. 

Lists ends of procedures. 

Lists RR instructions. 

Lists RX non-branch instructions. 

Lists SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine. 

Processes compiler generated label numbers. 

Lists labels . 

Lists branch and load address instructions. 

Lists shift instructions. 

Lists LM and STM. 

Lists SI instructions. 

Processes SS decimal instructions. 

Prints "+PROCEDURE" followed by entry names and statement number, 

Identif ies operands . 

Determines name and offset from dictionary entry. 

Names generated label number. 

Places a variable name in the print line. 

Scans dictionary for multiple entry labels. 



l x j 
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Table UF1. Phase UF Routine/Subroutine Directory (cont'd) 

Function 



r t- 

| Routine/Subroutine | 



I" 



NEXTSL (UG) 

NM0003 (UH) 

PRINIT (UG) 

PRNTLC (UG) 

PRNTOO (UG) 

PRNTVF (UG) 
RRRTN 
SECOND 

STA.TMN (UG) 

STATNO (UG) 



Scans dictionary for multiple statement labels. 

Common return point in naming routine. 

Prints location counter value, hexadecimal, and mnemonic op codes. 

Converts location counter to hexadecimal; places it in print image. 

Prints a line. 

Moves variable length item into variable field part of print line. 

Generates RR format listing of text. 

Scans ahead for literal offsets; inserts second instruction byte 
into print image. 

Lists statement numbers. 

Converts statement number to decimal. 
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Table XA. Phase XA Error Message Editor 



T T" 

| Main Processing | 
j Routine | 



Statement or Operation Type 



I 

I 

j. + 

| Determines whether error messages |XA 

j are to be printed | 

,. T _ + 

| Scans error message text skeletons |XA8 

| and prints them out | 

l j. 



Subroutines Used 



None 



|XA50, XA70, XA90, XA110, ZUPL 

I 

-J. 



Table XA1. Phase XA Routine/Subroutine directory 



r t- 

| Routine/ Subroutine | 



Function 



Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 



|XA 




|XA0 




|XA01 




|XA1 




|XA2 




|XA4 




|XA7 




|XA8 




|XA9 (XB) | 


| XA12A j 


|XA30 


(XB) | 


|XA32 


(XB) | 


|XA35 


(XB) | 


|XA40 


(XB) | 


|XA50 


(XB) | 


|XA70 


(XB) | 


|XA90 


(XB) | 


IXA11C 


(XB) j 


|ZUPL 
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APPENDIX A: GUIDE TO PHASES AND MODULES 



This appendix relates the logical 
phases, physical phases, and modules con- 
tained within the physical phases. The 
compiler name is IEMAA. 



Read- In Logical Phase 
CA 



PHYSICAL 

PHASE MODULES 

C ompiler Control 

AA 

AB 

AC 



AD 

AE 
AF 

AG 

AM 
BX 

JZ 



DESCRIPTION 



Controls running 
compiler 



of 



Performs detailed ini- 
tialization 

Writes records on 
intermediate file 
SYSUT3 

Performs interphase 
dumping using TESTRAN 

End of read- in phase 

Controls system genera- 
tion compiler options 

Closes SYSUT3 for out- 
put, reopens for input 

Phase marking 

48-character set prep- 
rocessor 



Builds second 
phase directory 



half 



C ompile - time Processor Logical Phase 
AS 



BC 



BG 



BM 



BW 



AV 



BC, BE, BF 



BG-BI 



BM # BN 



Resident phase for 
compile-time processor 

Initialization phase 
for compile-time proc- 
essor 

Initial scan and tran- 
slation phase for 
compile-time processor 

Final scan and replace- 
ment phase for compile- 
time processor 



Read-In phase common 
routines 



cc 


Read-In 


phase common 




routines 


CE 


Keyword 


tables 


CI CG,CI 


Read- In 


pass 1 


CK 


Keyword 


tables 


CL CL,CM 


Read^In 


pass 2 


CN 


Keyword 


tables 


CO CO,CP 


Read-In 


pass 3 


CR 


Keyword 


tables 


CS CS f CT 


Read-In 


pass 4 


CV CV f CW 


Read-In 


pass 5 


Dictionary Loqical 


Phase 




EG EG 


Initialization 


EI EH,EI,EJ 


First pe 


iss over DECLARE 



EL 



EP 



EW 



EY 



FA 



FE 



FI 



statements 

EK,EL,EM Second pass over 
DECLARE statements 



EP 

EW f EX 

EY f EZ 
FA r FB 
FE,FF 
FI 



Constructs dictionary 
entries for PROCEDURE, 
ENTRY and CALL state- 
ments 

Constructs dictionary 
entries for LIKE attri- 
butes 

Constructs dictionary 
entries for ALLOCATE 



Checks context 
source text 



of 



Error message 


printout 


FK 


FK 


phase 












FO 


FO r FP 



Cleanup phase for 
compile-time processor 



Changes BCD to dic- 
tionary references 

Checks validity of dic- 
tionary references 

Rearranges attributes 

Constructs dictionary 
entries for 0N- 
conditions 
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FQ 



FQ 



Checks validity of LR 
PICTURE chain 



LR 



Initialization 
Phase LS 



for 



FT FT, FU Dictionary 

house- keeping 

FV FV„FW Merges second file 

statements into text 

FX FX„FY Processes identifiers 

for cross reference and 
attribute listing 

P retranslator Logical Phase 



GA 
GK 

GP 

GU 

HF 

HK 

HP 



GA Modifies I/O statements 

GK Checks parameter match- 
ing 

GP* GQ, GR Second check on param- 
eters 

GU,GV Processes CHECK condi- 
tion statements 

HFjHG Processes structure 
assignments 

HK„HL Processes array assign- 
ments 

HP„HQ Processes items defined 
using iSOBs 



Translator Logical Phase 



IA 



IG 



IM 



IA.IB 
IG 



IM„IN„IO 
IP„IQ 



Stacks operators 
operands 



and 



Preprocessor for gener- 
ic functions 

Processes generic func- 
tions 



Aggregates Logical Phase 

JK JK^JLjJM Structure processor 

JP JP Checks DEFINED chains 

Ps eudo-Code Logical Phase 

LA LA Utility scanning phase 

LB LB W LC Generates triples to 

initialize AUTOMATIC 
and CONTROLLED scalar 
variables 

LD LD Constructs dictionary 

entries for initialized 
STATIC scalar variables 
and arrays 

LG LG # LH Expands DO loops 



LS 
LV 
LW 
MB 
MG 
MI 
MK 
ML 
MM 

MP 
MS 
NA 

NG 

NJ 

NM 

NT 
NU 

OB 

OE 



LS,LT,LU 

LV 

LW, LX 

MB,MC 

MG,MH 

MI,MJ 

MK 

ML 

MM,MN,MO 

MP 

MS f MT 

NA 

NG 

NJ, NK 

NM, NN 

NT 
NU,NV 

OB,OC 

OE, OF 



Converts expression 
triples to pseudo-code 

Provides string han- 
dling facilities 

Converts string triples 
to pseudo-code 

Constructs pseudo-code 
for pseudo-variables 

Constructs pseudo-code 
for in-line functions 

Constructs pseudo-code 
for in-line functions 

Constructs pseudo-code 
for in-line functions 

Processes generic entry 
names 

Processes CALL and 
function procedure 
invocations 



Reorders BUY 
statements 



and SELL 



Constructs pseudo-code 
for subscripts 

Generates pseudo-code 
for branches, RETURN 
triples, etc 

Generates Library call- 
ing sequences for DELAY 
and DISPLAY statements 

Generates Library call- 
ing sequences for exe- 
cutable RECORD- oriented 
input/output statements 

Generates Library call- 
ing sequences for exe- 
cutable STREAM-oriented 
input/output statements 

Pre- processor for NU 

Generates Library call- 
ing sequences for 
data/format lists 

Processes compiler 
functions and pseudo- 
variables 

Constructs pseudo-code 
for assignments 
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OG 



OS 



OG, OH Generates library 
calling sequences 

OS,OT, OU Converts constants to 
required internal form 



Final Assembly Logical Phase 



S torage Allocation Logical Phase 



PD 
PH 
PL 

PP 

PT 

QF 
2J 



PD First STATIC storage 
allocation phase 

PH Second STATIC storage 
allocation phase 

PL, PM Constructs symbol 
tables and DEDs 

PP Sorts AUTOMATIC chain 

PT,PU Allocates AUTOMATIC 
storage 

QF„QG # QH Constructs prologues 

QJ,QK Allocates DYNAMIC stor- 
age 



Register Allocation Logical Phase 
RA RA„ RB 



Processes addressing 
mechanisms 



RF RF. fl RG ff RH Allocates physical reg- 

isters 



TA 



TF 


TF 


TJ 


TJ, TK 


TO 


TO,TP 


TT 


TT,TU 


UA 


UA,UB,UC 



UD 



UF 



TA, TB,TC Constructs DECLARE con- 
trol blocks 



Assembly first pass 

Optimization 

Produces ESD cards 

Assembly second pass 

Final assembly initial 
values, first pass 

Final assembly initial 
values, second pass 

UF,UG,UH Produces listings 



Error Editor 



XA 



XA,XB 



XF-YX 



Determines whether 
there are any diag- 
nostic messages to be 
printed, and if so, 
prints them 

Contain diagnostic mes- 
sages 
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APPENDIX B: RESIDENT TABLES 



There are three resident tables: the 
dictionary, the keyword tables, and the 
phase directory. The dictionary is resi- 
dent through part of the compilation; the 
formats of the dictionary entries are fully 
described in Appendix C. The keyword 
tables are resident during the read-in 
logical phase, and the phase directory 
throughout the compilation. 



ORGANIZATION OF KEYWORD TABLES 



The read-in phase is divided into five 
passes containing the modules shown in 
Figure 7. 

Modules CA and CC contain routines which 
are common to all five passes. Successive 
blocks of routines overlay the areas used 
in the first pass by modules CE, CG, and 
CI. The keyword tables are held in separ- 
ate modules (CE, CK, CN, and CR) which must 
each be less than 1,02U bytes (IK) long. 



In this way it is possible to hold in 
storage only those keywords which are 
required for any one pass. The keyword 
tables are constructed in the following 
manner. 

For ease of searching and modifying a 
keyword table, it is organized into two 
levels and by keyword length, as shown in 
Figure 8 . 

The KEYWD routine is called by one of 
the statement scanning routines, and is 
supplied with a parameter which enables it 
to decide which set of keywords to look at 
(e.g., statement identifier, ON condition, 
miscellaneous). It does this by using the 
parameter to extract the required relative 
address (R(A),etc.) from the first level 
directory. The second level directory pro- 
vides the KEYWD routine with the means of 
reaching a table containing keywords of 
correct length; the KEYWD routine calls the 
KEYID routine, which scans the next signi- 
ficant item in the source text to obtain 
the length used in this look-up. 



r — 

1 

1 
i 


CA 


— 1 

1 

1 
i 


1 

L—- - 




1 
i 




1 


CC 


I 
J 



> Common Routines 



r n 

I CE J 

L J 



r 1 

I I 
I CG I 



I I 

I CI | 

I I 

L J 

Pass 1 



r 1 

I CK | 
L J 



| CL 



CM 



Pass 2 



CN 



CO 



r 1 

I I 
I CP I 



Pass 3 



cs 



CT 



Pass H 



CR 



CV 



I I 

I CW | 

I I 

I J 

Pass 5 



Figure 7. Organization of Read-In Phase 
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r 1 

— 1 R(A) 

k 

r H RCB) 
j. 

| R(C) 
I" 



1—1 



A>->| 
I- 
I 

I" 
I 



| BL> 



First Level 
Directory 



CL> 



H- 



Second 
•| Level 

Direc- 
i tory 



Figure 8. Organization of Keyword Table 

Format of First Level Directory 

FSTLVL DC AL2(STATID - FSTLVL) 
DC AL2(0NID - FSTLVL) 



F ormat of Second Level Directory 



The second level tables contain relative 
addresses, which enable the KEYWD routine 
to reference a third level table containing 
keywords of the correct length. If one of 
these entries should contain zero, then 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table. 



STATID DC FL2'm* where m is smallest 
length in table 

DC FL2'n f where n is largest 
length in table 

DC AL2(STLm-STATID) 

DC AL2(STLn- STATID) where the 

symbols beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 



Format of Third Level Tables 



The third level tables have a prefix 
byte containing the number of entries in 
this particular table followed by keyword 
entries. These consist of the keyword in 
internal code plus the replacement charac- 
ter (keywords recognised as such are 
replaced by a single code byte) . 



STLm DC FLl'x* where x is number of 
keywords in this table 

DC X' 112315* keyword in internal 
code 

DC X^S* replacement in internal 
code 

DC X'393839* 

DC X*5A' 



Some keywords are not represented by one 
word (e.g., GO TO, BY NAME, and clearly, 
the mechanism must be modified to cope with 
the second word. This modification is 
achieved by OR-ing a 1-bit into the first 
bit of the first level. The presence or 
absence of this bit is tested by the KEYWD 
routine before the suspected keyword is 
compared. If the bit is absent, the pass 
through the routine is quick, as there is 
no possibility of an extra level search. 
If the bit is present* the keyword must be 
compared after the additional bit has been 
AND-ed out. If the comparison is equal, 
the two bytes following the replacement 
character are used as a relative address to 
reach the next level table. 



Format of Entr y Requi rin g Additional 
Comparis ons 



DC X'9726' GO + X'lOOO* 

DC X'UO 1 

DC AL2(N XTLVL-*) Relative address 
of next level table 

The format of these extra level tables 
is similar to that for the third level. In 
this way, it is possible for national 
language keywords to replace single words 
by two or more words, if so desired. 
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PHASE DIRECTORY 



1 abort has occurred 



Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half, 
phase JZ uses the list to construct a new 
directory for the second half. 



The phase directory is constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM System/360 
O perating System, Control Program Services , 
Form C28-6541. 

Each entry in the build list is 30 bytes 
long. On returning from the BLDL macro, 
two bytes of the name field and ten other 
bytes of each satisfied entry in the build 
list are used to construct a 12-byte phase 
directory entry in the compiler control 
routines. The build list is destroyed 
after the initialization process is com- 
plete*. 

The format of a phase directory entry is 
as follows: 



Byte Number 
1-2 
3 
4-5 

6-8 

9-10 
11 - 12 



Description 

Phase name 

Status byte 

Concatenation number and 
Library identification 

TTR of first text record; 
where TT is the relative 
track number, and R is the 
block number on that track 

Total amount of storage 
required 

Length of first text record 



C ontrol Code Word — CCCODE 

The format of the control code word 
(CCCODE), which is four bytes in length, is 
as follows: 

Byte Bit 

DUMP 1 wanted 

not wanted 



LIST 



LOAD 



DECK 



EXTREF 



XREF 



ATR 



6 CHAR 48 

7 MACRO 

SOURCE 

1 

2 BCD 

3 

4 OPT 

5 
6 



2-7 



1 not wanted 
wanted 



1 not wanted 

wanted 

1 not wanted 

wanted 

1 not wanted 

wanted 

1 not wanted 

wanted 

1 not wanted 

wanted 

1 means U- format 

means F- format 
records on input 

1 if track overflow 
is present 

Severity code 

Severity code 

Severity code 

Severity code 

where 0000=FLAGW 
0001=FLAGE 
0010=FLAGS 

1 not wanted 

wanted 

1 not wanted 

wanted 

1 not wanted 

wanted 

not used 

1 BCD input 

ECBDlC input 

not used 

1 wanted 

not wanted 

1 AE required 

1 program check 
has occurred 

1 means first record 
has been read 

i means do not produce 
code for STMT 

not used 
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APPENDIX C: INTERNAL FORMATS OF DICTIONARY ENTRIES 



This appendix describes the formats of 
dictionary entries during the compilation 
of a source program. The appendix is 
organized in the following manner: 

1. Dictionary entry code bytes 

2. Dictionary entries for ENTRY points 

3. Code bytes for ENTRY dictionary 
entries 

U. Dictionary entries for DATA, LABEL, 
and STRUCTURE items 

5. Code bytes for DATA, LABEL, and STRUC- 
TURE dictionary entries 

6. Uses of the OFFSET 1 and OFFSET 2 
slots in DATA, LABEL, and STRUCTURE 
dictionary entries 

7. Dictionary entries for: 

label constants 

data constants 

formal parameters 

FILE entries 

TASK and EVENT data 

internal library functions 

parameter descriptions 

ON conditions 

PICTURES 

expression evaluation workspace 

dope vector skeletons 

symbol table entries 

AUTOMATIC chain definitions 

DED dictionary entries 

FED dictionary entries 

temporary dope vectors 

BCD entries 

second file statements 

8. Dimension tables 



DICTIONARY ENTRY CODE BYTES 



The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic messa- 
ges between phases of the compiler; the 
text describes the operations to be carried 
out on the elements. 

Each type of element has a charac- 
teristic dictionary entry, which is iden- 
tified by a code occupying the first byte 
of the entry. In general, each type of 



element has a different code byte, but in 
order to permit rapid identification of 
dictionary entries, the code bytes have 
been allocated on the following basis: 

First Half Byt e 

Bit Bit 

Position Value Meaning 

entry has BCD 

1 entry has no BCD 

1* entry is to be chained 
1 entry not to be chained 

2 not a member of structure 
1 member of structure 

3 not dimensioned 
1 dimensioned 

♦This bit only applies to Phase FT which 
constructs the storage class chains by a 
sequential scan of the dictionary; later in 
the compiler, items with this bit on * are 
added to the storage class chains. 



In the second half byte, the following 
codes have the meanings shown: 



X*F* means 
X*7' means 
X*E f means 



data variable 
label variable 
structure 



The second and third bytes of every 
dictionary entry contain the length* in 
bytes, of the entry. If the entry has BCD 
(i.e., the first bit of the entry is zero), 
this length count does not include the BCD; 
instead, the BCD,, which follows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of BCD. 

Using this general scheme, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the table which have no corresponding 
description are not allocated. 

X'OO* Statement label constant 

01 Procedure or entry label 

02 GENERIC entry label 

03 External entry label (entry type 4) 

04 Built-in function, e.g., DATE 

05 Temporary variable and controlled 
allocation workspace 

06 Built-in GENERIC label, e.g.,, SIN 

07 Label variable 
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08 
09 
0A 
OB 
OC 
OD 
OE 
OF 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
1A 
IB 
1C 
ID 
IE 
IF 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
2B 
2C 
2D 
2E 
2F 

30 
31 
32 
33 
34 
35 
36 
37 

38 
39 
3A 
3B 
3C 

3D 

3E 
3F 



40 
41 
42 



File constant 



Task identifier * 
Event variable * 



Data variables (not dimensioned or a 
structure member) 



Dimensioned label variable 



Dimensioned task identifier * 
Dimensioned event variable * 

Dimensioned data variable 



Label variable in structure 



Task identifier in structure * 
Event variable in structure * 
Structure item 
Data variable in structure 



Dimensioned and structured label 
variable 



Dimensioned task identifier in 

structure 

Dimensioned event variable in 

structure 

Dimensioned structure item 

Dimensioned and structured data 

variable 

Formal parameter type 1 



43 
44 
45 
46 
47 
48 
49 
4A 
4B 
4C 
4D 
4E 
4F 

80 

81 

82 
83 
84 
85 
86 
87 

88 
89 

8A 
8B 
8C 
8D 
8E 
8F 



90 
91 
92 
93 
94 
95 
96 
97 

98 
99 
9A 
9B 
9C 

9D 

9E 
9F 



A.0 
Al 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
A9 
AA 



ON CONDITION entry 



ENTRY type 1 — from a PROCEDURE 

statement 

BEGIN statement entries — entry 

type 1 

ENTRY statement — entry type 1 

Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 

temporary 

Constant 

File formal parameter or file 

temporary 

Task identifier formal parameter * 
Event variable formal parameter * 

Data variable formal parameter or 
temporary 

Invocation count dictionary entry 



Dimensioned variable formal parameter 

or temporary 

File attribute entry 



Dimensioned task identifier formal 
parameter * 

Dimensioned event variable formal 
parameter * 

Dimensioned data variable formal 
parameter or temporary 



Structured label variable temporary 
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AB 
AC 

AD 
AE 

AF 

BO 
El 
B2 
B3 
B4 
B5 
B6 
B7 

B8 
B9 
BA 
BB 
BC 

BD 

BE 

BF 



CO 
CI 
C2 

C3 
C4 
C5 
C6 
C7 
C8 

C9 
CB 
CC 

CD 

CE 
CF 



Temporary or formal parameter 

structure 

Structured data variable temporary 



2-3 


Length 


4 


Level 


5 


Count 


6-7 


Dictioi 



1-9 



Dimensioned and structured label 
variable temporary 



Dimensioned and structured task 
identifier temporary * 
Dimensioned and structured event 
variable temporary * 
Dimensioned structure formal 
parameter or temporary 
Dimensioned and structured data 
variable temporary 

String dope vector for temporary 

DED2 entry 

Internal library function, e.g., 

conversion routines 

Compiler label 

Prefix ON list item 

Parameter lists 

Dope vector skeletons 

Symbol table entry or DED entry 

Error message, table entry, workspace 

requirement, etc. 

Record Definition Vector (RDV) entry 

Select a member from a generic family 

AUTOMATIC chain delimiter or Dope 

Vector Descriptor (DVD) entry 

ON condition entry 

Label BCD entry 

End of information in dictionary 

block 



* Not in second version 



2. DICTIONARY ENTRIES FOR ENTRY POINTS 



E ntry type 1 for PROCEDURE. BEGIN, and 
ENTRY statements 



10-11 



12-13 



14-15 | 
16-17 > 
18-19 | 
j 

20-21 



22-23 



24-25 



26-28 



29-31 



32-34 



35-37 



38-40 



The format of an entry for a 
statement is as follows: 



PROCEDURE 



41-42 



y reference to the 
entry type 1 of the contain- 
ing block 

Dictionary reference of the 
dictionary entry for the 
first label that was 
attached to the PROCEDURE 
statement 

Dictionary reference to the 
entry type 1 of the next 
PROCEDURE or BEGIN statement 
in the source program 

The start of the chain of 
all AUTOMATIC variables 

Dictionary references to 
three dictionary entries 
indicating storage require- 
ments for workspace 



Dictionary reference 
CHECK list 



of 



Byte Number 
1 



Description 
Code byte X'80* 



Dictionary reference of 
nocheck list 

Dictionary reference of the 
first symbol table entry for 
this block 

Size of the DSA for this 
block 

Offset of the eight words in 
the DSA used for addressing 
the DSA- 

Offset of the storage used 
for the parameter list nec- 
essary in an ALLOCATE- FREE 
statement 

Offset of the two-byte 
switch which is set on entry 
to a procedure and tested at 
a RETURN (expression) 

Offset of the four-byte slot 
which will contain the 
address of the first approx- 
imation of the target field 
(the address of the implied 
parameter) 

Dictionary reference of the 
entry type 1 of the first 
ENTRY statement of the pro- 
cedure. The entry type 1 
for PROCEDURE and ENTRY 
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43 
44-57 



58 



59-61 



62 



statements of any one proce- 
dure form a circular chain. 
If there are no ENTRY state- 
ments in a procedure this 
slot will contain the dic- 
tionary reference of the 
PROCEDURE'S entry type 1, 
i.e., of the entry in which 
the slot occurs 



OPTIONS code byte 

Seven 2-byte dictionary ref- 
erences to dictionary 
entries for prefix options. 
Only those prefix options 
which are changed within the 
procedure nave a dictionary 
reference. The remainder 
are zero. The order of the 
options in this list is the 
same as in the options byte. 
(See "Options Code Byte" in 
this Appendix) 

Options change byte. This 
byte contains a one bit for 
each prefix option which is 
changed within the proce- 
dure. Its format is identi- 
cal with the normal options 
byte 

Offset of workspace used in 
BUY statement 

2*n where n is the number of 
parameters at this entry 
point 



63 onwards N dictionary references of 
formal parameter type 1 
entries 

The format of an entry for a BEGIN 
statement is similar to the above for the 
first 34 bytes. The initial code byte is 
X'81', and the dictionary reference in 
bytes 8 and 9 is that of the first label on 
the original BEGIN statement, if any. If 
there was no statement label, then the 
statement number occupies this slot. The 
presence of a statement number or statement 
label is indicated by a flag byte in 
position 35. This is set to SN for a 
statement number, or to SL for a statement 
label. Bytes 36-53 contain the same as 
bytes 44-61 in a PROCEDURE entry type 1. 

The format for the entry type 1 derived 
from an ENTRY statement is as follows: 



Byte Number 
1 
2-3 



Description 
Code byte X'82* 
Length 



5 
6-7 

8-9 

10-12 
13 



Level 



Count 

Dictionary reference of the 
next member in the circular 
PROCEDURE- ENTRY chain 

Dictionary reference of the 
dictionary entry for the 
first label on the original 
ENTRY statement 

The offset of the apparent 
entry point 

2*n where n is the number of 
parameters 




14 onwards n dictionary references to 
the formal parameter type 1 
entries 

The labels on a PROCEDURE or ENTRY 
statement will be placed in the dictionary 
according to the following format: 



Description 

Code byte X'01* 

Length 

Hash chain(STATIC chain) 

Pointer to transfer vector 

Statement number 

Other 1 code byte. (See 
"First code byte - other 1" 
in this Appendix- ) The last 
bit will always be set to 
one, unless the label is the 
last label for a particular 
statement, in which case the 
last bit will be set to 
zero. 

Pointer to entry type 2 

Spare bytes for final assem- 
bly. The pseudo-code phase 
dealing with RETURN 
(expression) will insert 
into these bytes a code 
which must be stored in a 
specific slot in the DSA 
whenever the procedure is 
entered via this label. The 
code is used by the prologue 
construction phase. Byte 16 
in the first label for each 
PROCEDURE or ENTRY statement 
will contain the number of 
labels associated with that 
statement 



12-13 
14-16 
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Block level 

Block count 

Count of containing block 

BCD length-1 
BCD of label 



17 

18 

19 

20 
21 

E ntry Type 2 



An entry type 2 describes the data 
attributes of an entry point. The format 
is as follows : 



Byte Number 
1 

2-3 
4-5 

6-8 



9 
10-12 



13-14 



Description 

Code byte X^ 1 . 

Length. 

Dictionary reference 
entry type 3 



of 



Offset, i.e., the position 
of the string dope vector in 
the DSA of the block to 
which the entry belongs. 
This will be zero if the 
item is not a string. 

DATA, byte (see "DATA Byte" 
in this Appendix) . 

Data information, which is: 

1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 

3. for strings of adjustable 
length, the text ref- 
erence of a second file 
statement giving the 
expression for the string 
length 

Picture table reference, if 
required. The storage allo- 
cation phase will change 
this to the dictionary ref- 
erence of a DED entry, the 
picture table reference 
being moved into this refer- 
if necessary 



Entry Type 3 



Entry type 3 dictionary entries are 
constructed either from an explicit dec- 
laration or from implicit and default 
rules. Their format is as follows: 



Byte Number 
1 

2-3 
4-5 

6-7 



8-10 



11 



12-13 



14-15 



16-17 



18-19 



Description 

Code byte X'84' 

Length of entry. 

Dictionary reference of 
entry type 1 of PROCEDURE or 
ENTRY statement. 

Dictionary reference of 
entry type 2. This des- 
cribes the value returned 
when the label associated 
with this entry type 3 is 
invoked as a function. 

The offset in the DSA of the 
containing block of the 
first approximation of the 
storage for the value 
returned by this entry 
point, when it is invoked as 
a function. 

The entry code byte. (See 
"Entry Code Byte" in this 
Appendix. ) 

The dictionary reference of 
an item in the AUTOMATIC 
chain of the containing 

Entry type 3 entries 
in the AUTOMATIC 

of the containing 



block, 
feature 
chain 
block. 



Switch bytes. The pseudo- 
code phase dealing with 
RETURN (expression) inserts 
into these bytes the bit 
pattern of the code which 
will signify that entry to 
the procedure was by the 
label associated with this 
particular entry type 3. 
Phase QF will use this to 
create MVI instructions - 

Dictionary reference of a 
SETS list. This will be 
zero if the attribute SETS 
was not specified. The for- 
mat of a SETS list is given 
at the end of this section. 

Dictionary reference of the 
dictionary entry for the 
label belonging to this 
entry type 3. 
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20 



21 



Status byte. This byte will 
contain X*00' or X'FO'. 
X'00* indicates that the 
entry was constructed from 
an ENTRY declaration which 
had parameter descriptions. 
X'FO' indicates the entry 
was constructed either arti- 
ficially or from an ENTRY 
declaration which did not 
have parameter descriptions. 



2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF* 



22 onwards If the status byte is X^O* 
there are n two-byte ref- 
erences of parameter des- 
criptions. A parameter des- 
cription is a dictionary 
entry for the particular 
type of item but without a 
BCD. If one particular par- 
ameter is not described, 
i.e. if there are two adja- 
cent commas in the ENTRY 
attribute, then the dic- 
tionary reference is zero. 
When the status byte is 
X'FO* then an entry type 3 
is only 23 bytes long. 



22+2n- 
23+2n 



DECLARE statement number 



SETS List Format 



Byte Number 
1 
2-3 

4-5 

6-5+2*nl 
6+2*nl 



7+2*nl 
onwards 



Description 

Code byte X'CS* 

Overall length of original 
BCD entry 

2*nl where nl is the number 
of identifiers in the SETS 
list. If * was specified, 
these bytes contain 2*nl+l. 

Dictionary references of the 
identifiers in the SETS 
list. 

n2, the number of para- 
meters in the SETS list. 

n2 numbers of one byte each. 
These are the parameter 
numbers and will be in 
ascending order. 



Entry Type 4 



Entry type 4 dictionary entries describe 
external entry points. Their format is as 
follows: 



Byte Numbe r Description 

1 Code byte X'03' 

2-3 Length 

4-5 Hash chain, later used 
as the STATIC chain 

6-8 Offset of the load constant 
in STATIC 



9-11 



12-13 



14 



15 



16-18 



19-20 
21-22 
23 



Offset in the DSA of the 
declaration block of the 
storage for the first 
approximation of the value 
returned. 

The dictionary reference of 
an item in the AUTOMATIC 
chain of the declaring 
block. Entry type 4 entries 
are members of the AUTOMATIC 
chain of the declaring 
block- 

The ENTRY byte. (See "ENTRY 
Byte" in this Appendix. ) 

The DATA. byte. (See "DATA 
Byte" in this Appendix.) 

Data information which is: 

a) with numeric data, the 
precision and scaling, 
left justified 

b) for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 

c) for strings of adjustable 
length, the text refer- 
ence of a second file 
statement giving the 
expression for the string 
length 

Picture table address if 
required. 

Dictionary reference of a 
SETS list 

Status byte. If this byte is 
X'00 1 the meaning is the 
same as the status byte in 
an entry type 3. If the 
byte is X f FF f it is implied 
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24 

25 

25+2*n 

26+2*n 

27+2*n 

28+2*n 
onwards 



that no parameters were des- 
cribed 

2*n where n is the number of 
parameters. This is zero if 
the status byte is X*FF* 

n dictionary references to 
parameter descriptions as in 
an entry type 3 

Level 

Count 

BCD length- 1 

BCD of identifier 



is given the attribute GEN- 
ERIC. The pointers are to 
the entries which contain 
specifications of the var- 
ious possible 
attributes 



9+2n 


Level 


10+2n 


Count 


ll+2n 


BCD length-1 


12 + 2n 


BCD 


onwards 





CODE BYTES FOR ENTRY DICTIONARY ENTRIES 



Entry Type 5 



Entry type 5 dictionary entries describe 
the entry points which are formal paramet- 
ers. They have the same format as entry 
type 4 except that: 

Byte 1 is X'83' 

Bytes 4 and 5 contain the address of 
the formal parameter type 1 entry 

Bytes 6 to 8 contain the offset in the 

DSA of the declaring block of the 

address slot associated with a formal 
parameter 

No BCD is contained in the entry 



GENERIC Entry Point 



ENTRY Code Byt e 



This code byte is used in ENTRY type 3, 
4, and 5 dictionary entries. The format is 
as follows: 



Bit Number 


Description 


1 


IRREDUCIBLE 


2 


REDUCIBLE 


3 


USES 


4 


SETS 


5 


SECONDARY 


6 


RECURSIVE 


7 


Has data attribute 


8 


Not used 



The format for a GENERIC entry point is 
as follows: 



Byte Number 


Description 


1 


Code byte X , 02 I 


2-3 


Length 


4-5 


Hash chain 


6-7 


DECLARE statement number 


8 


2n, where n is the numbe 



of two-byte addresses fol- 
lowing 

9-8+2n Pointers to entry type 4 

or 5, ENTRY labels, or BUIL- 
TIN entries. These entries 
are made when an identifier 



Options Code Byte 



This code is used in entry type 1 
dictionary entries for PROCEDURE state- 
ments. The format is as .follows: 



Bit Number 
1 
2 
3 
4 
5 
6 



Description 

REENTRANT 

Not used 

MAIN 

SECONDARY 

RECURSIVE 

OPTIONS 



Appendix C: Formats of Dictionary Entries 299 




Not used 
Not used 



4 . DI C TIONARY ENTRIES FOR DATA, LABEI „ AND 
STRUCTURE ITEMS 



Label V ariables - Obtained from DECLARE 
Statement 



Description 

Code byte may be X , 07' f 
X'17*, X'27 f , X*37', X*87', 
X f 97', X'A7\ X , B7*. The 
last four cases apply when 
the item occurred in a par- 
ameter list in a PROCEDURE 
or ENTRY statement. In this 
case* bytes 4 and 5 will 
contain the dictionary ref- 
erence of the corresponding 
formal parameter type 1 
entry. In the first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 
the dictionary, this slot 
will be re-used to form 
another chain, e.g., AUTO- 
MATIC or STATIC chain 

Length 

Initially contains the hash 
chain. After the dictionary 
scan, this is re- used to 
form another chain, e.g., 
AUTOMATIC or STATIC chain 

Offset inserted by storage 
allocation phase (as for a 
data item) 

DECLARE statement number 

•Other 1' code byte (See 
"First Code Byte - Other 1" 
in this Appendix. ) 

•Variable" code byte (See 
"Variable Byte" in this 
Appendix) 

•Other 2' code byte (See 
•Second Code Byte - Other 2" 
in this Appendix. ) 

•Other 3' code byte (See 
"Third Code Byte - Other 3" 
in this Appendix.) 

•Other 4 f code byte (See 



2-3 

4-5 



6-8 

9-10 
11 

12 

13 

14 

15 



"Fourth Code Byte - other 4" 
in this Appendix. ) 

16 onwards Content determined by varia- 
ble code byte. 

After variable information 
2 bytes Symbol slot 
1 byte Level 
1 byte Count 
1 byte BCD length- 1 

BCD 

With the exception of the 2-byte symbol 
slot, the general format is the same as for 
a structure. 



Diction ary Entries for Da ta Items 



The format is as follows: 



Byte Number 
1 



2-3 

4-5 
6-8 

9-10 



Description 

Code byte may be X'OF', 
X^IF', X^F', X^FV, X'8F*, 
X f 9F', X'AF', or X'BF*. The 
last four cases apply when 
the item occurred in a par- 
ameter list in a PROCEDURE 
or ENTRY statement. In this 
case, bytes 4 and 5 will 
contain the dictionary ref- 
erence of the corresponding 
formal parameter type 1 
entry. In the first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 
the dictionary this slot 
will be re-used to form 
another chain, e.g., AUTO- 
MATIC or STATIC chain 

Length 

See above 

Offset. See "Format of 
Variable Information" in 
this Appendix 

DECLARE statement number. 
If the variable has not been 
explicitly declared, this 
number is zero; otherwise, 
it is the statement number 
assigned to the DECLARE 
statement from which the 
variable was obtained. 
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11-16 



17-19 



20-21 



22 



1 byte 
1 byte 
1 byte 



Six code bytes. These are: 
other 1, variable, other 2, 
other 3, other 4, and data. 
(See "Code bytes" in this 
Appendix for a description 
of these bytes- ) 



Data information, which is: 

1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 

3. for strings of adjustable 
length, the text ref- 
erence of a second file 
statement giving the 
expression for the string 
length 



Symbol slot, containing 
either zero, or one of the 
following: 

1. If the SYMBOL and DED 
bits are not on, and the 
data item has a picture, 
these bytes contain the 
dictionary reference of 
the picture table entry 

2. If the DED bit is on and 
the SYMBOL bit off, this 
slot points at a DED 
entry. If the item has a 
picture, the DED entry 
will contain the picture 
table address 

3. If the SYMBOL bit is on, 
the slot will point at a 
SYMBOL entry. This again 
will contain the picture 
address, if specified 



Variable information. The 
contents of these bytes are 
determined by the variable 
code byte. See "Format of 
Variable Information" in 
this Appendix 



Level 

Count 

BCD length- 1 
BCD 



Major and Minor Structure Entries 



These entries do not include base ele- 
ments, i.e., they do not have any data 
attributes or LABEL. Their format is: 

Byte Number Description 

1 Code byte may be X^E 1 , 

X^E*, X'AE', or X'BE*. The 
last two indicate that there 
is no BCD attached- When 
the identifier occurs in the 
parameter list of a PROCE- 
DURE or ENTRY statement, 
bytes 4-5 contain the dic- 
tionary reference of the 
formal parameter type 1 
entry. In the case of the 
first two code bytes, bytes 
4-5 of the entry initially 
contain the hash chain. 
This is later modified by 
Phase FT 



2-3 
4-5 
6-8 



Length 

See byte number 1 

These bytes are used by the 
storage allocator; they will 
finally contain one of the 
following offsets: 

1. For structures which are 
parameters, or are dynam- 
ically defined, the off- 
set from the start of the 
major structures dope 
vector or the minor 
structures dope vector. 

2. For major structures, the 
offset from the start of 
AUTOMATIC or STATIC of 
the address slot which 
will point at the struc- 
ture dope vector 

3. For CONTROLLED struc- 
tures, only that speci- 
fied for minor structures 
in 1 , above 

4. For structures in STA- 
TIC EXTERNAL the contents 
depend on the setting of 
the " dope vector 
required" bit in the 
"other 3" code byte. If 
this bit is off and the 
item is a major struc- 
ture, the slot contains 
the offset from the start 
of STATIC of the slot 
which will contain the 
address of the first byte 
of the structure. If the 
dope vector bit is on, 
the slot contains the 
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offset from the start of 
STATIC of the address 
slot which will point at 
the structure dope vec- 
tor. The offset slot is 
not used in either of the 
above cases for minor 
structures 



content is determined by the 
variable code byte, and will 
always include the informa- 
tion required for structure 
members. The format is des- 
cribed under "Format of 
Variable Information" in 
this Appendix 



9-10 



11-15 



DECLARE number, i.e. the 
statement number of the 
DECLARE statement which pro- 
duced the structure 

Five code bytes. These are: 
other l t variable, other 2, 
other 3., and other 4 



16 



Variable information. 



The 



1 byte 


Level 


17 


Block level 


1 byte 


Count 


1 byte 


BCD length-1 




BCD 
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5_. CODE BYTES FOR DATA. LABEL, AND STRUCTURE DICTIONARY ENTRIES 



The First Code Byte - Other 1 



f- 


Bit 
No. 


1 


Description 




i 


Set By 


1 


1 


Symbol or requires load constant if 
label constant. 


T" 


Phase EL, 
or NU 


FT, GM 




2 




Defined on 






Phase EL 






3 




Mentioned in CHECK list 






Phase FO 






4 




Needs DVD 






Various 






5 




Last member in structure 






Phases EL 


or EW 




6 




Variable dimensions 






Phase EL 






7 




* dimensions 






Phases EL 


and FT 




8 




* string length for data 

— More labels follow for 
constant 


item 
a label 




Phases EL 
Phase EG 


and FT 








Major Structure - no member of 

the structure has a dimension or 
length attribute which is not * 




Phase EY 





H 



L J. X J 



The Second Code Byte - Other 2 



Bit 

NO. 

— - J 


Description 

L _ _ 


| Set by 

_j. _ _ _ 


1 


Dynamically defined 


| Phase EL 


2 


CONTROLLED major structure with 
varying strings 


| Phase EY 


3 


NORMAL = 0, ABNORMAL = 1 


1 Phases EI and FT 


4 


Secondary 


| Phase EI 


5 


Formal Parameter 


| Phase EI 


6 


INTERNAL = 0, EXTERNAL = 1 


| Phase EI 


7 
and 


00 = AUTOMATIC or DEFINED or simple 
parameter 


| Phase EL 




01 = STATIC 


1 Phase EL 


8 


11 = CONTROLLED 


1 Phase EL 



L X X J 
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The Third Code Byte - Other 3 



1 


Bit 
NO. 


| Description 

-4- -1 


r 

Set by 

L _ _ 


1 


T 1 

j Needs dope vector 


r 
Phases EK and EY if variable 
dimension entries, variable 
string length, or in 
CONTROLLED storage; 
Phase NU when item appears 
in an argument list 




2 


j Needs DED 


Phase 


NU 








3 


j Needs no storage for the item 
j itself 


Phase 


GP 








4 


| Correspondence defined 


Phase 


FV 








5 


| Chameleon 


Phase 


GP 








6 


j Sign bit for first offset 


Phase 
Phase 


PH 
PT 


for 
for 


STATIC and 
AUTOMATIC 




7 


j Indication of the state of 
j the value in the first offset 
j = rubbish 
| 1 = good value 


Phase 
Phase 


PH 
PT 


for 

for 


STATIC and 
AUTOMATIC 




8 


j As above but for second 
j address slot 


Phase 


PH 







L J. JL J 



The Fourth Code Byte - Other 4 



1 


Bit 


"T" 












h 


NO. 

1 


-+■ 


Description 

A constant has been produced 
for this structure or array 


-+• 


Phase 


Set 
JK 


by 




2 

and 

3 




00 = Not temporary 

01 = Temporary type 2 

10 = Temporary not sold 

11 = With second skeleton 




Phase GP, 
IM, or LB 


HF, HK, 








dope vector 












4 




Member of defined structure 




Phase 


FV 






5 




Packed = Aligned = 1 




Phase 


EL 






6 




Major structure 




Phase 


EL 






7 




No dope vector initialization 




Phase 


GP 






8 




A temporary type 2 which has 
been incorporated in work- 
space 1 or RDV required 




Phase 


OB 





L 1 J. J 



304 



Variabl e Byte 



r t 

Bit 

No. 

1 
2 
3 
4 



Description 

Second address slot 

Dimensioned 

Member of structure 

Value list for label variables or 
POS for defined items 

Initial value if not a structure 
or LIKE if a structure 

EXTERNAL Slot 

Defined slot 

CONTROLLED from ALLOCATE statement 



For a detailed explanation of the signi- 
ficance of these bits and a description of 
the extra slots associated with them, see 
"Format of Variable Information" in this 
Appendix. 



Data Byte 






BIT 



GAD or 

NUMERIC 

FIELD 



NOt 
Used 



Sterling 

Non 

Sterling 



Long 
Short 



Cad. 

Numeric 

Field 



Binary 
Decimal 



Float 
Fixed 



8 

Complex 
Real 



STRINGS 



Adjustable 

Length 

String 



Aligned 
Packed 



Varying 



No 

Picture 

Picture 



Char 



Bit 



Not 
Used 



Not 
Used 



6. FORMAT OF VARIABLE INFORMATION 



Data items, labels, and structures 
require pointers to various tables if they 
have certain attributes; for example, if 
they are dimensioned or defined on a base. 
Space will be left for information only if 
the attribute is present. This leads to an 
addressing problem of how to find the 
position of the information when the pre- 
sence of other attributes alter its 
address. 

The problem is resolved by collecting, 
into one byte, all the attributes which 



require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute bytes. The pre- 
sence of a bit in this byte indicates the 
presence of further information. The off- 
set of this information from the start of 
the variable information is given by the 
presence of the bits to the left of the one 
of interest. Each bit will have a value 
associated with it. The sum of the values 
of the bits present and to the left of the 
one of interest will give the value of the 
offset. This is achieved in the coding by 
moving the code byte, masking off the bits 
to the right of the one being tested and 
the bit itself, and translating the byte. 
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The information produced by the presence 
of the following bits in the variable byte 
is as follows: 



B it number 1 ; 

The second offset slot is 4 bytes long. 
The contents of this slot are described 
in this appendix. The decision to 
include a second offset slot in a 
dictionary entry is based on questions 
about the nature of the identifier. 
Refer to figure 9. 

r _ i 

|Y| implies that a second offset 
«-- J slot will be given, 

r~i 

|N| that it will not. 
l_j 

B it number 2 : 

The dimensioned bit. The slot produced 
by this is three bytes long. The first 
byte will contain the number of dimen- 
sions, the next two the dictionary 
reference of the dimension (multiplier) 
table 

Bit number 3; 

Member of a structure bit. This slot 
is ten bytes long and has the following 
format: 



Description 

Declared level number 

True level number 

Dictionary reference of 
the containing structure 

Dictionary reference of 
the next member in the 
structure 



Bit number 5 : 

The initial value 
four- byte slot. 



or LIKE bit is a 




3-4 



5-6 



For normal initial value. The first 
two bytes contain the dictionary 
reference of the associated 'Initial 
Value* dictionary entry. The fourth 
byte contains X'FO* 

For INITIAL CALL. The first three 
bytes contain the text reference of 
a second file statement. The fourth 
byte Contains X'OF* . 

For initial labels. The first three 
bytes contain the text reference of 
a set of second file statements. 
The fourth byte contains X'FF'. If 
there is an initial slot but no 
initial values the fourth byte con- 
tains X'OO* 

For LIKE. The first two bytes con- 
tain the LIKE chain. The third and 
fourth bytes contain the dictionary 
reference of the likened structure 



Bit number 6: 

The EXTERNAL bit. * This 
contains the ESD number 

Bit number 7: 



2- byte slot 



The DEFINED bit. This 7-byte slot 
contains the following: 

Byte Numbe r Description 

1-2 Defined chain. 

3-4 Dictionary reference of base 

5-7 The text reference of a 

second file statement. 
After the dictionary these 
bytes will contain X* FFFFFF' 
if the base is unsubscript- 
ed. 



7 

8-10 
Bit number 4 : 



Alignment 
Element length 



POS for defined items, 
slot will contain the POS 
binary integer. 



The two- byte 
value as a 



Bit number 8 : 

The CONTROLLED from ALLOCATE bit. This 
bit is on for dictionary entries for 
level 1 CONTROLLED data specified in 
ALLOCATE statements. The two- byte slot 
contains the dictionary reference of 
the dictionary entry for the data con- 
structed from the DECLARE statement 
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Y 
r— I 



Entry 

T 

I 

V 

Is it data 
item? 

T 



N 



V 



Is it struc- 
ture? 



— T — 

YV 



Is it formal 
parameter? 

T 

|N 
V 



Is it con- 
trolled? 

T" 



N 



V 



Is it static? 



— T— 

N|<- 
V 



Is it string? 

T 



Is it struc- 
ture member? 

T 

IN 
V 



Is it defined? 
t 



Is it dimen- 
sioned? 



— T — 

|N 
V 

|N| 



r 1 

| Is it label |N r - n 

->| variable? j- — >|N| 

l _ J L_J 



r t 

Y | Is it struc- |N r — , 
A >| ture member? |- — >|N| 

l T J L_J 

I* 

V 



Y 



Y r 
— >|Y 



Y r- 
— >|Y 



Y r- 
— >|Y 



Y r 
— >|Y 



m 



■>l 



j Is it ex- 



| ternal? 

L 



T— 

JN 



H->|Y| 



Figure 9. Decision to Include a Second Offset Slot 
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Us es of the QFFSET1 and 0FFSET2 Slots in 
Data, Labels and Structure Dictionary 
Entries 



Basic elements: 



0FFSET1 slot not used, 
contains offset of 



0FFSET2 Slot 

element's dope vector from the start of 

the EXTERNAL control section 



The 0FFSET1 slot is in bytes 6-8 of the 
dictionary entry and the 0FFSET2 slot is 
part of the variable information. 



CONTROLLED Structures 



ST? TIC INTERNAL Structures 



Major and minor structure entries; 

OFFSET1 slot not used. 0FFSET2 slot 
contains offset of structure dope vec* 
tor from start of STATIC INTERNAL con- 
trol section (if there is a dope 
vector) 



Basic elements : 



0FFSET1 



slot contains 

offset of virtual origin (in the case 
of dimensioned items) or offset of item 
(when not dimensioned) from start of 
STATIC INTERNAL control section. 
0FFSET2 slot contains offset of dope 
vector (if there is one) from start of 
STATIC INTERNAL control section 



AUTOMATIC Structures 



Major and mi nor structures: OFFSET 1 slot 
not used- 0FFSET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In the 
case of the major structure, this value 
will be zero- ) 

Basic elements: 0FFSET1 slot not used. 
0FFSET2 slot contains offset of 
element's dope vector relative to 
address in pseudo-register. 



Non-Structured Arrays in STATIC INTE R NAL 



0FFSET1 slot contains offset of vertical 
origin of the array relative to start of 
data region. 0FFSET2 slot contains offset 
of dope vector (if there is one) from the 
start of the data region. 



Constant dimensions : as for STATIC 
INTERNAL except that all offsets are 
relative to start of DSA. 

Adju stable dimensions: major and minor 
structure entries: OFFSETl slot not 
used. 0FFSET2 slot contains offset of 
structure dope vector from start of DSA 
(if there is a dope vector) 



Non-Structured Arrays in UTOMATIC 



Constant dimensio ns^ 

INTERNAL 



as for STATIC 



Adjustable dimensions: OFFSETl slot not 
used. 0FFSET2 slot contains offset of 
dope vector from start of data region. 



Basic elements : OFFSETl slot not used. 
0FFSET2 slot contains offset of 
element's dope vector (if there is one) 
from the start of the DSA 



STATIC EXTERNAL* CONTROLL ED or Param e ter 
Array 



STATIC EXTERNAL and Parameter Structures 



Major structure entry: OFFSETl slot con- 
tains offset of address slot from start 
of data region. 0FFSET2 slot contains 
size of EXTERNAL control section. 
(Offset of major structure dope 
vector = 0. ) 



OFFSETl slot contains offset of address 
slot which contains a pointer to the arrays 
dope vector. (Not used in the case of 
CONTROLLED.) 0FFSET2 slot is not present. 



Non- Struc tured Scalar St rings in STATIC 
INTERNAL 



Minor structu re entries : OFFSETl slot 

not used. OFFSET2 slot contains offset 
of structure's dope vector from start 
of major structure dope vector. 



OFFSETl slot contains offset of datum 
from start of data region. 0FFSET2 slot 
contains offset of dope vector (if there is 
one) from start of data region. 
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N on- Structured Scalar Strin gs in AUTOMATIC 



Constant length: as for STATIC INTERNAL 

Adjus table length: 0FFSET1 slot not 
used. OFFSET2 slot contains offset of 
dope vector from start of data region. 



N on- Structured Scalar Strings in STATIC 
E XTERNAL, CONTROLLED or Parameter 



12-14 Second Offset Slot 

15-16 Spare for Final Assembly 

17 Level 

18 Count 

19 Count of Containing Block 

20 BCD Length- 1 

21 etc. BCD 



OFFSET1 slot contains offset of address 
slot which points to string dope vector 
(not used in the case of CONTROLLED). 
0FFSET2 slot not present. 



N on- Structured Non-String Scalars in 
AUTOMATIC or STATIC INTERNAL 



OFFSET1 slot contains offset of datum 
from start of data region. OFFSET2 slot 
not present. 



Non-Structured Non-String Scalars in STATIC 
EXTERNAL , CONTROLLED or Parameter 



OFFSET1 slot contains offset of address 
slot which points to datum (not used in the 
case of CONTROLLED). OFFSET2 slot not 
present. 



7. OTHER DICTIONARY ENTRIES 



Label Constants - Extracted by the 


Read-In 


Phase 






Byte Number 


Description 




1 


Code byte X'OO' 




2-3 


Length up to BCD 
byte 


length- 1 


U-5 


Hash chain - STATIC 


chain 


6-8 


Offset 




9-10 


Statement Number 




11 


Other 1 code B} 


fte (See 



Compiler Label s 



The format is identical to that of a 
label constant, except for the omission of 
the BCD. The code byte is X'CS*. 



Formal parameter type 1 entry 



These entries are derived from the PRO- 
CEDURE and ENTRY statements, and do not 
contain any information other than that the 
identifier is a formal parameter. The 
format is as follows: 



Byte Number 


Description 


1 


Code byte X'40' 


2-3 


Length 


H-5 


Hash chain 


6-7 


These bytes wil 



8 
9 

10 
11 



_>omt to a 
full description of the 
identifier after Phase EK # 
or Phase FA, or Phase FE. 
These full descriptions are 
dictionary entries for the 
type of item they are des- 
cribing. They do not con- 
tain the BCD of the iden- 
tifier, but in the slot for 
the hash chain there is the 
dictionary reference of the 
corresponding formal param- 
eter type 1 entry. 

Level 

Count 

BCD length- 1 

BCD 



"First Code Byte - Other 1" 
in this Appendix 



For a description of the types of entry 
pointed to, see "Dictionary entry for par- 
ameter descriptions." 
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Dictionary entry for F ILE 



For attributes specified in OPEN state- 
ment the format is as follows: 



Byte Number 


Description 


1 


Code byte X'98* 


2-3 


Length 


4-5 


STATIC chain 


6-8 


OFFSET1 


9-10 


DECLARE statement number 



11 onwards String of second level mark- 
ers (without preceding ' C8* 
code bytes) one for each 
attribute other than FILE, 
TITLE and IDENT. 

This entry is created by the read-in 
phase and is referred to only as the 
argument of an ATTRIBUTES marker. 



FILE Constants 



Code X f 08* is used for file constant 
entries, which have the following format: 



B yte Number 
1 

2-3 
4-5 

6-8 

9-10 
11-12 

13 

14-15 

16 
17 



Description 

Code byte X'OS* 

Length 

Hash chain, subsequently 
EXTERNAL or STATIC chain 
depending on whether FILE is 
EXTERNAL or INTERNAL 

0FFSET1 (STATIC or transfer 
vector offset) 

Declare statement number 

Dictionary reference of 
attributes entry (zero if 
none) 

Code byte (similar to the 
"other 2" code byte- Only 
internal/external bit used) 

Dictionary reference of 
environment string (zero if 
none) 

Level 

Count 



18 BCD length-1 

19 onwards BCD 

FILE Parameters and Temporaries 



Code X^BS* is used for file parameters 
and for file temporaries . The format of 
the entry will be the same as that for 
label variables. 



FILE Environment Entries 



Code X^S' 
string. 

Byte Number 

1 

2-3 

4 onwards 



is used for the environment 

Description 

Code byte X'c8 f 

Length 

Internally coded form of 
argument of ENVIRONMENT 
option 




Code X*C8* is also used for attributes 
collected from the DECLARE statement. 



Description 
Code byte X'CS* 
Length 



4 onwards String of second level mark- 
ers (without preceding code 
bytes X'cS*), one for each 
attribute other than FILE, 
ENVIRONMENT, EXTERNAL, or 
INTERNAL 



Dictionary Entries from Constants 

The format is: 
Byte Number Descri ption 



1 


Code byte X'88' 


2-3 


Length 


4-5 


Hash chain 


6 


DATA byte 


7 


Data Precision* 


8 


Scale Factor* 
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9 

10 
11 
12 



13-14 



15 



♦These are the apparent pre- 
cision and factor derived 
from the BCD of the constant 
(see Note 2) 

Type (see note 1) 

DATA byte (2) 

Data Precision (2)** 

Scale Factor (2)** 

** These bytes are inserted 
by the phase requesting con- 
version. If a picture is 
required, these bytes are 
used to contain a picture 
table reference (see Note 3) 

Dictionary reference - used 
when a phase requires a con- 
stant to be converted into a 
specific location in storage 

BCD 



Notes : 



1. 
ing: 



The type byte has the following mean- 



First and second bits: 



00 - normal BCD constant. The first 
offset slot must be relo- 
cated by the storage allo- 
cation phase, to contain 
the offset of the converted 
constant from the start of 
STATIC storage, rather than 
from the start of the con- 
stants pool 

11 - the BCD is replaced by the inter- 
nal form of the constant. 
The first offset slot is 
treated in the same way as 
for the code 00 

10 or 01 - the constant is required to 
be converted into a speci- 
fic location in storage. 
The second code implies the 
converted constant should 
be made negative before 
being stored 

Sixth bit: 1 indicates that the con- 
stant requires a DED. 

Seventh bit: 1 indicates that the 
constant requires a dope vector. 

Eighth bit: 1 indicates that no con- 
version is required. 



bytes 6 through 8 will contain the 
offset of the constant from the start 
of the pool of constants* If a dope 
vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant - 

3. Should a DED be required, this will be 
constructed by Phase PL- The two 
bytes, precision(2) and scale 
factor (2), will contain a dictionary 
reference of a DED dictionary entry. 
If the constant requires a dope vector 
then Phase OS will make a dictionary 
entry for it, and the dictionary ref- 
erence preceding the BCD will be the 
dictionary reference of this. 



Task Identifiers and EVENT Data 



The format of the dictionary entries for 
task identifiers and EVENT data is, apart 
from the initial code byte, the same as 
that for a label variable. 



Dictionary Ent ries fo r Built-in Func t ions 



The format is : 

Byte Number Description 

1 Code byte X'OH' 

2-3 Length 

4-5 Hash chain - later becomes 
the STATIC chain 

6-8 Offset - gives the position 
in STATIC storage of the 
load constant for Library 
routine 

9-10 Code bytes - the first code 
byte contains a value used 
by Phase MG to pick up com- 
plete information about the 
built-in function. The sec- 
ond code byte contains 
further information about 
the built-in function (See 
"Second Code Byte.") 

11-12 DECLARE statement number 

13 Level 



2. After the constants processor 



14 Count 
the 15 BCD length- 1 
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16 



BCD 



BCD entries 



Second Code Byte 



The second code byte contains the fol- 
lowing information: 



Byte Number 
1 
2 



Description 

May be passed as an argument 

May have an array as an 
argument 

Must have an array as an 
argument 

Is a pseudo- variable 

Indicates to which of the 
two tables the offset refers 



I nternal Library Functions 



Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 



Byte Num ber 
1 

2-3 
4-5 
6-8 
9 

10 
11-12 



13 
14 



Description 

Code Byte X* C2 1 

Length 

Hash chain 

Offset 

Library Code - identifies 
the particular Library rou- 
tine required 

Not used 

Code Bytes - the first code 
byte contains a value used 
by phase MG to pick up com- 
plete information about the 
Library function. The sec- 
ond code byte contains 
further information about 
the function 

Level 

Count 



BCD entries are used when the LIKE, 
DEFINED, or POOL attributes are used. A 
short dictionary entry' with the format 
given below is used. This is pointed at by 
the dictionary entry with the attribute. 



Byte Number 


Description 


1 


Code Byte X' 40 


2-3 


Length 


4 


BCD length-1 


5 


BCD 



Dicti o nary Entry for Parameter Descr i ptions 



Dictionary entries for parameter des- 
criptions are identical with the normal 
entry for data variable, label variable, 
structure, file, or entry points, except 
for the following details: 

Hash chain contains pointer to formal 
parameter type 1. After Phase FT this 
pointer is moved to the bytes contain- 
ing level and count 

No BCD is present 

No block identification is present for 
ENTRY or FILE 

The code byte for an entry point - 
referred to as entry type 6 - is X'86* 



ON Statements 



Entries for ON statements are made by 
Phase FO, and contain the. following: 



Eyte Number 


Description 


1 


Code Byte X'CD* 


2-3 


Length 


4-5 


AUTOMATIC chain 


6-8 


Offset 


9 


Code byte as su] 




Read- In Phase 


10 


Block level 


11 


Block count 



312 



12 



13 onwards n dictionary references of 
variables or ON condition 
entries 



O N Condition 

This entry is made by Phase FO: 
Byte Number Description 

Code Byte X f 4D f 
Length 



1 

2-3 

4-5 



b-i 
9 

10 
11 
12 



Hash chain later used as 
AUTOMATIC chain 

Offset 

Code byte as supplied by the 
read in phase 

Block level 

Block count 

BCD length-1 



13 onwards BCD 

C HECK Li st Entry 

This entry is made by Phase FO: 
Byte Number Description 

Code Byte X'CS* 
Length 



1 

2-3 

4 



n where n is the number of 
dictionary references fol- 
lowing 



5 onwards Dictionary references (2n 
bytes ) 



PICTURE Entry 



The format of an entry in the picture 
table in the dictionary. 



Byte Number 
1 
2-3 



Description 
Code Byte X'CS* 
Length = L+13 



4-5 

6-8 
9 

10 
11 



12 



Contains address of next 
entry in picture chain 

Offset in STATIC storage 

Code Byte (after Phase FQ) 
(See Code Byte description) 

P - the number of digit 
positions in field in numer- 
ic picture. 

Q - the number of digit 
positions after V character 
in numeric picture. Code 
X^O* represents 0, X^F* 
represents -1, and X* 81* 
represents +1. 

W - apparent length of pic- 
ture. - length of picture 
following. (For a non- 
numeric picture the length 
is obtained in bytes 12-13-) 



14 onwards Picture. 



Byte 9 - Code Byte 



Bit Number 


Description 


1 


string 

1 numeric 


2 


correct 




1 error 


3 


not sterling 

1 sterling 


4 


short 

1 long 


5 


Not used 


6 


decimal 

1 binary 


7 


fixed 

1 floating 


8 


Not used 



Dictionary E nt ry for W orkspace Requirement 

The format for a dictionary entry for 
workspace requirement is: 

Byte Number Descri p ti on 

1 Code Byte X*C8* or X'CA' 
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2-3 
4-5 
6-8 



Length = 8 

Total workspace required 

Offset 



If the code byte is C8 this is the 
temporary workspace used by pseudo-code 
(temporary type 1). If the code byte is 
C9 f the temporary workspace is used in an 
immediate FORMAT. If the code byte is CA f 
the FORMAT is remote. 



Dictionar y Entry for Parameter Lists 



Dictionary entries for parameter lists 
have the following format: 



Byte Number 


Description 


1 


Code Byte X f C5' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


STATIC offset 


9-10 


Assembled length 



11 onwards Contains DCA's 



Dictionary Entries for Dope Vector 
Skeletons 



Byte Number 


Description 


1 


Code Byte X»C6' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


Offset in STATIC 


9-10 


Dictionary ref 



DECLARE number 

11 onwards Bit pattern of skeleton dope 
vector 

This entry is constructed by Phase PD 



Symbol Table Entry 



Byte Number 


Description 


1 


Code Byte X'C7' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


Offset in STATIC of DED 


9-11 


Actual DED if not pict 



If a picture is involved, 
the last two bytes are the 
dictionary reference of the 
picture table entry 

12-13 Offset in STATIC storage of 
symbol table entry 

15-16 Dictionary reference of next 
item in the symbol table for 
this block 

17-18 Dictionary reference of item 
requiring entry in symbol 
table 



Dictionary Entry for AUTOMATIC Chain 
Delimiter 



An entry for AUTOMATIC chain delimiter 
is made by phase PP. 



Byte Number 


Description 


1 


Code Byte X'CC 


2-3 


Length 


4-5 


AUTOMATIC chain 


6-7 


Pointer to first second file 




entry 



Pointer to second second 
file entry 



DED Dictionary Entry 



PL. 



An entry for a DED is created by Phase 



PL. 



Symbol table entries are made by Phase 



Byte Numbe r Description 

1 Code Byte X , C7 I 

2-3 Length 

4-5 STATIC chain 

6-8 STATIC offset 
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9-11 



Actual DED 



If the DED requires a picture, the last 
two bytes contain the dictionary reference 
of the picture table entry. 

This entry has the same format as the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
symbol slot in an item. 



2-3 
4-5 
6-7 



Length 

DECLARE number 

Offset of the label's BCD 
in STATIC 



These entries are constructed when a 
statement label or a PROCEDURE or ENTRY 
label is mentioned in an ON CHECK list. 
Phase PD will allocate storage in STATIC 
for the BCD of the label, and place the 
offset of this in the above entry. 



DED 2 Entries 



These entries are generated when a DED 
is required for the conversion of a tem- 
porary result. 



Byte Number 


Description 


1 


Code Byte X'Cl' 


2-3 


Length =11 


4-5 


STATIC chain 


6-8 


Offset 


9-11 


Actual DED 



Dictionary Entry for FED - Format Element 
D escriptor. 



The entry for a FED is made by Phase NV. 

The entry is identical with a DED2 entry 
but with a length of 12, instead of 11. 
The storage allocated will be word-aligned. 



Byte Number 


Description 


1 


Code Byte X*C1* 


2-3 


Length =12 


4-5 


STATIC chain 


6-8 


STATIC offset 


9-12 


Actual FED 



L abel BCD Entries 

Label BCD entries are made by Phase FO. 
B yte Nu m be r Description 

1 Code Byte X'CE* 



Dope Vector Entries f or Temporaries 

This entry is constructed to indicate 
that a dope vector is required for a 
temporary result. At this stage the bytes 
in the entry contain the following: 

Byte Number Description 

1 Code Byte X'CO* 

2-3 Length 

4-5 AUTOMATIC chain 



6-8 



9-10 



11-12 



Offset in the temporary type 
1 stack. After Phase QJ 
this will contain the offset 
from the start of the DSA 

Dictionary reference of dope 
vector skeleton entry 

Length of string 



Record Definition Vector Entry 



This entry is constructed when a varia- 
ble requires a record definition vector. 



Byte Number 


Description 


1 


Code Byte X'C9* 


2-3 


Length 


4-5 


STATIC or AUTOMATIC chain 


6-8 


Offset 


9-10 


Dictionary reference of 
variable 


11-18 


Eight bytes of RDV text 


19-20 


DECLARE number 
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Dope Ve ctor Descriptor Entry 



This entry is constructed for a struc- 
ture which requires a dope vector descrip- 
tor. 



Byte Number 


Description 


1 


Code Byte X'CC 


2-3 


Length 


4-5 


STATIC chain 


6-8 


Offset 


9-10 


Dictionary reference 
structure 



11-12 



13. 



of 



Chain to RDV 
DECLARE number 



entry oi 
DVD text set up by Phase JK 



2-3 
U-5 

6-7 

8-9 
10 



Length of entry 

Statement number of the 
DECLARE or other statement 
giving rise to the second 
file statement 

Dictionary reference of the 
entry type 1 of the block 
from which the second file 
statement was extracted 

Dictionary reference of a 
three- byte slot in the dic- 
tionary. 

Type of second file state- 
ment, i.e. the function it 
performs- This is the sec- 
ond byte of the dictionary 
reference used to designate 
the function in the actual 
second file statement 



F ormat o f a Second File Dictionary Entry 



DIMENSION TABLE 



Byte Number 

1 



Description 
Code byte X'CS* 



Each entry containing dimension informa- 
tion will result in a table being set up. 
This table is shown in Figure 10. 



r t t 1 

| Code Byte C8 j Two-byte length | Flag Byte | 
j. + T x ^ 

| Zero byte |No. of dimensions (n) | Two-byte chain address | 
f x x H 

| VIRTUAL ORIGIN WORD j 

J. T T 1 

| One-byte marker | Not used | Lower bound (halfword) | 

j. + 1 H 

| One-byte marker J Not used | Upper bound (halfword) | 

j. x 1 1 

J. X X ^ 

I I J nth upper bound | 

j. x x 4 

n multipliers | | 

L J 

Note; The one-byte marker is: 

00 if bound is fixed point constant; bound is a two-byte binary constant, left-adjusted. 

FF if bound is an expression; bound is a three- byte pointer to a second file statement in 
text. 

7F if the bound is inherited and has an MTF function. 

3F if the bound is inherited and is covered by a previous MTF function. 

FO if the bound is specified by an *. 

Figure 10. Dimension Table 
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APPENDIX D: INTERNAL FORMATS OF TEXT 



This appendix describes the internal 
formats of text at various points during 
the compilation of a source program. The 
appendix is organized in the following 
manner: 



1. Text code bytes after read in 

2. Text formats after read in 

3. Text code bytes on entry to the tran- 
slator 

4. Triple formats 

5. Text code bytes in pseudo-code 

6. Text formats in pseudo-code 



10, 



Text formats in absolute code 

Second file statements, and the for- 
mats of compiler functions and pseudo- 
variables 

Pseudo-code phase temporary result 
descriptors (TMPDs) 

Internal and external Library calling 
sequences 



11. Descriptions of terms and abbrevia- 
tions used in text during a compila- 
tion 

Note: The internal formats of text during 
compile-time processing are described 
in Appendix J. 
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TEXT CODE BYTE AFTER THE READ- IN PHASE 



First Level Table (00 to 7F) 



T T 

I * I 

+ 1 

J 

+ +— 

K 

+ +-- 

L 

+ +— 

M 

+ +- 

N 

+ +— 

O 

+ + 



_ T T 

I BLANK | 
4 X 

I 



I— 
I— 
H- 
J- 



I— 

B 

+ 

C 

+— 

D 

+— 

E 

+ 

F 












\ ) 



4 

| ASSIGN 
I 



DO 
EQUALS 



+ j 









+ — 

H 

+— 

I 

+ 



+ 

Q 

+ 

R 

+ 















| 



PSEUDO- | % 

VARIABLE | 

I III 

FUNCTION 



MULTIPLE 
ASSIGN 



>= 
1< 









—I 

-H 
-H 






PREFIX - 



-I 

PREFIX + 









SUBSCRIPT | 



II I 1 

X J. J. 



LITERAL 
CONSTANT 

I I < 
X X 



** 



<-Digits-> 



-Letters > J < Operators- 
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First Level Table (80 to FF) 



o 


TO JLINE JA j J |SN j j FL DEC IMAG | 

|| || | ASSIGN BY | | | 
ALLOCATE! | CALL | ENTRY | | NAME | | FL DEC REAL | 

BY | |B | | |SL | |FL BIN IMAG | 

FREE | | RETURN | PROC | | SL' | | FL BIN REAL I 


1 


2 


3 




y x x x x x x .j. \ 


k 


WHILE | |P | | |CN | |FIX DEC IMAG | 

| DISPLAY IGOOB+ \ EGIN | | GET | | FIX DEC REAL 1 

SNAP |COL |R | | |CL | | FIX BIN IMAG | 
r + + + X + 1 + < 

| SIGNAL |GO TO | ITDO | WRITE | PUT | END DO | FIX BIN REAL I 

|| || 2nd LEVEL| | | | 
SYSTEM |E | | | MARKER | | END ITDO | INTEGER | 

WAIT | REVERT | | DO | READ I UNLOCK * | END | STG DEC REAL | 


5 


6 
7 


8 


9 




|. .J. X X X X .j. X \ 


h 

B 


THEN |F | || | | | | 
y + + + + + + + ^ 

DELAY | UNIT LABEL | IF | LOCATE * | REWRITE | END PROG | ON | 

CONTROL || III 1 | ARRAY | 
VARIABLE | | |SN2 j | j | CROSS SECTION | 

EXIT INULL | DECLARE | ELSE I DELETE I OPEN I END BLOCK I CHAR CONSTANT | 


c 


D 




.}. 1 .j. .j. 1 1 .{. ^ 


E 


|C |X |NO SNAP| | | |SUB | 

STOP 1 ASSIGN | | FORMAT I | CLOSE | ; | BIT CONSTANT | 
-i. X __X_J. X X_ X_ _J 


F 



+ Go Out Of Block 



* Not second version 
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Second Level Table (00 to 7F) (preceded by second level marker byte C8 ) 



r T T T T T T T 1 

J I FILE J J J DECIMAL j OPTIONS | EXTERNAL j | 

| III | BINARY | IRREDUCIBLE | INTERNAL | POINTER *| 

l. x x + + + x x 4 

| JLIST j j j FLOAT j REDUCIBLE | AUTOMATIC J EVENT * | 

| | EDIT | EVENT | | FIXED | RECURSIVE | STATIC | TASK * | 

| TITLE (DATA | PRIORITY | | REAL | ABNORMAL | CONTROLLED | | 

J. X + + X X + + i 

| ATTRIBUTES | STRING | REPLY | | COMPLEX | NORMAL | SECONDARY | | 

|PAGESIZE | SKIP | | | PRECISION 1 | USES | | | 

|IDENT | LINE | | (PRECISION 2 | SETS | | | 

j. + + + + X + + ^ 

JLINESIZE | PAGE | | | VARYING | ENTRY j | | 

J. X + + + X + I ^ 

j j COPY j j | PICTURE (NUM) | GENERIC | INITIAL | | 

| INTO I I I I BIT ATTRIBUTE | BUILTIN | LIKE | | 

L__ + x + X X X + ^ 

| FROM JTASKOP *| | | CHAR ATTRIBUTE! j DEFINED | j 

| SET * | | | | DIMS | | | ALIGNED | 
J. X X X + + + + ^ 

| KEY j j | j LABEL | | PACKED | | 

|NOLOCK * | | | | PICTURE (CHAR) j III 
J. ^ + 1 + 1 + + + ^ 

j | FORMAT III I III 

| IGNORE I LIST I BY NAME I RETURNS POS I 



L JL X X X , X X X J 

* Not second version 
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Second Level Table (80 to FF) 



B 



D 



BUFFERED 



EXCLUSIVE 



+- 



CONVERSION 



CONDITION 



MAIN | j OVERFLOW 
UNBUFFERED 

REENTRANT | | UNDERFLOW 



NAME 



KEYED 



STREAM 
RECORD 



SECONDARY I 



ZERODIVIDE 



TRANSMIT 






BACKWARDS 



| FIXED 

I OVERFLOW 



ENDFILE 



CHECK 



SEQUENTIAL 



-+- 



DIRECT 
PRINT 
ENVIRONMENT 
INPUT 






-+ 

I 
-+ 

I 
-+ 

I 



| SUBSCRIPT 
| RANGE 

I 

| ERROR 



ON RECORD 

END PAGE 

+- 



OUTPUT 

UPDATE 
+- 






-+ 



| FINISH | KEY | NOCHECK 



SIZE 



UNDEFINED 
FILE 



I I I I I I I 
J. X X -L X X X 



TEXT FORMATS AFTER THE READ- IN PHASE 



PROCEDURE Statement 



In the statement formats in this sec- 
tion, the code bytes SN, SL, SL* , POS, and 
OB have the following meanings: 

SN statement number 

SL statement label 

SL' initial label 

POS following SN is a 2-byte statement 
number 

following SL is a 2-byte dictiona- 
ry reference of statement label or 
entry type 1 

OB prefix options byte, specifying ON 
conditions enabled for the state- 
ment 

The abbreviation SQUID means an iden- 
tifier, possibly subscripted and/or quali- 
fied. 



The format of a PROCEDURE statement is 
as follows : 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


PROCEDURE 


6 


Block level 


7 


Block count 


8-10 


PROCEDURE-BEGIN chain 


11-13 


DECLARE chain 


14-16 


ENTRY chain 
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17 

18. 



Left parenthesis - optional 

Format parameter list - 
optional 

Right parenthesis - optional 

Attribute marker - optional 

Attribute code - optional 

Attribute list - optional 

End of statement semicolon 



n 


OB 


5 


BEGIN 


6 


BLOCK LEVEL 


7 


Block count 


8-10 


PROCEDURE-BEGIN chain 


11-13 


DECLARE chain 


14 


Statement terminating 
semicolon 



E NTRY Statement 

The format of an ENTRY statement is as 
follows: 

Description 

Code byte SN or SL 

POS 

OB 

ENTRY 

ENTRY chain 

Block level 

Block count 

Left parenthesis - optional 

Formal parameter list - 
optional 

Right parenthesis - optional 

Attribute marker - optional 

Attribute code - optional 

Attribute List - optional 

Statement terminating 
semicolon 

B EGIN Statement 

The format of a BEGIN statement is as 
follows: 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 



END Statement 



The format of an END statement is as 
follows: 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 



ENDl, END2, or END3 - ENDl 
ends a PROCEDURE or BEGIN 
block; END2 ends an itera- 
tive DO block; END3 ends a 
non- iterative DO block 

Block level for the contain- 
ing block 

Block count for the contain- 
ing block 

Statement terminating semi- 
colon 



IF Statement 



The format of an IF statement is as 
follows : 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


IF 


6... 


Expression 




THEN 
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Statement or Group 

ELSE - optional 

Statement or Group 
optional 

Note: The semicolon preceding the ELSE has 
been deleted 



OB 



ON 



ON Condition 
SNAP or NOSNAP 



Statement or block 



DO Statement 



The format of a DO statement is as 
follows : 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


DO or ITDO 


6 


CV 


7 


BKC 


8... 


Squid 




DO equals 




Expression 




TO 




Expression 




BY 




Expression 




WHILE 




Expression 




Statement terminating 
semicolon 



O N Statement 

The ON statement takes one of the fol- 
lowing formats: 

1. 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 



2. 






Byte Number 


Description 


1 




Code byte SN or 


2- 


■3 


POS 


4 




OB 


5 




ON 


6 




ON Condition 


7 




System 


8 




SNAP or NOSNAP 



ASSIGN Statement 



The format of the ASSIGN statement is as 
follows : 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


ASSIGN or ASSIGN BY NAME 


6... 


Squid 




Comma - optional, 
may be repeated 



Squid - optional, 
may be repeated 

Variable number of bytes - 
optional, may be repeated 

ASSIGN 

Expression 

Statement terminating 
semicolon 



Appendix D: Internal Formats of Text 323 



flA.IT Sta tement 

The WAIT statement has the following 
format: 

Byte Number Description 

1 Code Byte SN or SL 

2-3 POS 

4 OB 

5 WAIT 

6 Left parenthesis 
7... Identifier 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Comma 

Further optional parentheses 
and expressions 

Right parenthesis 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 



CALL Statement 



The CALL statement has the following 
f ormat : 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


CALL 


6-8 


CALL chain 


9 


Identifier 


10 


Left parenthesis 


11 


Expression 



12... Right parenthesis 

Left parenthesis 

Argument List 

Right parenthesis 

Statement terminating 
semicolon 

GO TO Statement 



The format of the GO TO statement is as 
follows: 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


GO TO 


6... 


Squid 




Statement terminating 
semicolon 



SIGNAL and REVERT Statements 



The SIGNAL and REVERT statements have 
the following format: 



Byte Number 


Description 


1 




Code byte SN or SL 


2- 


■3 


POS 


4 




OB 


5 




SIGNAL or REVERT 


6 




ON Condition 


7 




Statement terminating 
semicolon 



DISPLAY Statement 



The format of the DISPLAY statement is 
as follows: 



Byte Numb er 
1 



Description 

Code byte SN or SL 
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2-3 

4 

5 

6 

7... 



POS 

OB 

DISPLAY 

Left parenthesis 

Expression 

Right parenthesis 

Left parenthesis - optional 

Squid - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 



7. 



DELAY Statement 



The format of the DELAY statement is as 
follows: 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


DELAY 


6 


Left parenthesis 


7... 


Expression 




Right parenthesis 




Statement terminating 
semicolon 



Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 



STOP,, EXIT, and Null Statements 



The format of STOP, EXIT and Null state- 
ments is as follows: 



Byte Number 


Description 


1 




Code byte SN or SL 


2- 


-3 


POS 


4 




OB 


5 




Statement identifier 


6 




Statement terminatim 



semicolon 



INITIAL Label DECLARE Statements 



The format of INITIAL label DECLARE 
statements is as follows: 



Byte Numbe r 
1 

2-3 
4 
5 
6-8 



RETURN Statement 



Description 

Code byte SN or SL 

POS 

OB 

INITIAL Label DECLARE 

DECLARE chain 

INITIAL label 

Statement terminating 
semicolon 



The format of the RETURN statement is as 
follows: 



DECLARE and ALLOCATE statements 



Byte Number 


Description 


The 


format 








of DECLARE and 


1 




Code byte SN or SL 


statements is 


as follows: 


2- 


-3 


POS 


Byte Number 


Description 


4 




OB 


1 




Code byte SN or SL 


5 




RETURN 


2-3 




POS 


6 




Left parenthesis - optional 


4 




OB 



ALLOCATE 
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5 
6-8 

9... 



DECLARE or ALLOCATE 

DECLARE Chain or ALLOCATE 
chain 

Declaration list 

Statement terminating 
semicolon 



FORMAT Statements 



The format of the FORMAT statement is as 
follows: 



Byte Nu mber Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 OPEN or CLOSE 

6... File group list 

Statement terminating 
semicolon 



Byte Number 


Description 


1 




Code byte SN or SL 


2- 


■3 


POS 


4 




OB 


5 




FORMAT 


6. 




Format list 



Statement terminating 
semicolon 

Format items are replaced by one- byte 
codes 



OPEN and CLOSE Statements 



The format of OPEN and CLOSE statements 
follows. 



READ, WRITE, SET, PUT, REWRITE. UNLOCK , and 
DELETE Statements 



The format of READ, WRITE, GET, PUT, 
REWRITE, UNLOCK, and DELETE statements is 
as follows : 



Description 

Code byte SN or SL 

POS 

OB 

Statement identifier 

Option list 

Statement terminating 
semicolon 
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3. TEXT CODE BYTES ON E NTRY TO THE 
TRANSLATOR PHASES 



r T T T T T T T 1 

j | | | COMPILER | | | | COMPILER | 

JDICT. REF. | FILE | | FUNCTION | |FILE' | | FUNCTION' 

|. + + + + + + + ^ 

| || | | COMMA j { | DO EQUALS | } j 

| | | | COMPILER | | | | COMPILER | 

| | LIST | | FUNCTION | FCOMMA |LIST' | | FUNCTION CALL' | 

I I I | CALL I I I I I 

h 1 + + + + + + .) 

j | EDIT | EVENT * | | ( |EDIT' | | j 

j j | | COMPILER | COMPILER | | | COMPILER j 

j TITLE | DATA | PRIORITY *|PSEUDOVAR | FUNCTION | DATA' j j PSEUDOVAR* | 

I II I | COMMA III | 

|. + + + + + + + 1 

| ATTRIBUTES | STRING | REPLY | |) | STRING' | < | + j 

J. + + + + + + + ^ 

| || | j COMPILER j j j j 

JPAGESIZE | SKIP j | ERROR j ASSIGN j j | NDX | 

j | | BUY j j j MULTIPLE | j j 

IIDENT | LINE | CHAMELEON | BUY ASSIGN | ASSIGN j ASSIGN | > -,< | / | 

(. 1 + + + + + + ^ 

JLINESIZE j PAGE j j ARCO j DROP | TMPD j LEFT j OFS j 

I I COPY j j j | | j LD I 1 = I * I 

I II I |BUYB III | 

j INTO JKEYTO | |pSEUDOVAR | CALSE2 | TT | JPSEUDOVAR' | 
h + 1 + + + + + ^ 

I I I |E ND I I I I I 

| FROM j TASK * | LIST MARK | LIST MARK | | j JMP j = j PREFIX - j 
|. 1 + + + + + ) ^ 

j SET * |RPL | | FUNCTION | CNVA |RPL' | | FUNCTION* j 

| | | | ARGUMENT | | | | | 

| KEY | | | MARK | £ | j > j PREFIX + | 

| | | DEFINED (SUBSCRIPT | | LITERAL | DEFINED | | 

JNOLOCK * JKEYFROM | SUBSCRIPT | |CNVB j CONSTANT! SUBSCRIPT' | SUBSCRIPT* | 
|. + + + + + + + ^ 

j j FORMAT | j | j FORMAT | j j 

IGNORE LIST | | , LIST' < ** 



* Not second version 
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"T 

| LINE 



TO 






ALLOCATE 






BY 



PAGE 






FREE 



CALL 



RETURN 



PROC 



TO' 



BY' 



SN 



SL 



CALL' 



EIO 



PROC 



WHILE 



SKIP 



WHILE' 



CN 



P' 



DISPLAY 



GOOB 



BEGIN 



SORT 



GET 



BEGIN' 



■+- 



SNAP 



COL 



SNAP' 



CL 



-+- 



1 SIGNAL 
SYSTEM IE 



GOTO 



ITDO 



WRITE 
SYSTEM' 



PUT 
E* 






END DO 
END ITDO 



ITDO' 



WAIT | REVERT 
THEN | F 
DELAY j 

I 
CV | 

EXIT | NULL 

|C 

STOP | ASSIGN 



DO 



READ 



IF 



LOCATE * 



UNLOCK * 

F" 

REWRITE 



|G \ j |F* |G* | 



END 

G ! 

END PROG 



DO' 



IF' OR ON 



. ARRAY 
CV j j j CROSS SECTION 

DELETE * 

|X |NOSNAP| 



OPEN 

C 

CLOSE 



END BLOCK 
END PROG 2 






NOSNAP' 
FORMAT 






* Not second version 
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4. FORMAT OF TRIPLES 



The triples produced as output from the 
translator phase each consist of five 
bytes, an operator followed by two 2-byte 
fields. Each of the two-byte fields may be 
occupied by an operand, which may be a 
dictionary reference, a code byte or code 
bytes, or a numeric parameter. Two zero 
bytes in place of a dictionary reference 
operand imply that the operand is the 
result of previous operations, and that its 
type and location are described in a TMPD 
in the text. 

The number of operands and the fields 
which they occupy depend upon the type of 
triple. The following table contains this 
information for all the triples used in the 
compiler. 



r — 


T" 




"T 




■ T - ~ -1 


| TRIPLE TYPE 


|HEX 


1 FIELD 1 


| FIELD 2 | 




|CODE| 






| TITLE 


-+- 
1 


04 


-I— 

1 

_j 


- 


-+ i 

| OPERAND | 
. X— ___ __ J 


| ATTRIBUTES 


t 
1 


05 


t 
1 


- 


T 1 

| OPERAND | 


|PAGESIZE 


-+- 
1 


06 


-+— 
1 


_ 


-+ ^ 

| OPERAND | 


|IDENT 


-+- 

1 
-+- 

1 
-+- 

1 


07 


1 

1 
-+— 
1 


- 


-+ ^ 

j OPERAND | 
| OPERAND | 
| OPERAND '| 


|LINESIZE 


08 


- 


|INTO 


0A 


- 




X_ 




_x 




X- - - J 


|FROM 


T 
1 


0B 


T 

1 


- 


T 1 
| OPERAND | 


|KEY 


-+- 

1 
-+- 

| 


0D 


1 
1 


- 


-X .j 

| OPERAND | 

| OPERAND | 


| IGNORE 


OF 


- 


jFILE 


1 


10 


1 


_ 


-+ ^ 

| OPERAND | 


|LIST 


1 

i _ 


12 


1 

.X 


- 


--+ ^ 

. X— — — — _J 


| EDIT 


t 
1 


13 


T 
1 


- 


T 1 


|DATA 


1 
1 


14 


1 
1 


- 


-+ ^ 

| OPERAND | 


| STRING 


15 


_ 


|SKIP 


1 


16 


■+~ 

1 


_ 


_X 1 

| OPERAND | 


|LINE 


1 


17 


1 


_ 


■-+ 1 

| OPERAND | 


|PAGE 


1 
1 


18 


.X__ 
1 

1 


- 


..X .j 


|COPY 


19 


- 


j KEYTO 


1 
1 
1 


1A 


1 
1 

4— 
1 


- 


-+ 1 

| OPERAND | 

| OPERAND | 


|RPL 


1C 


- 


| KEYFROM 


IE 


_ 


| FORMAT LIST 


-+- 
1 


IF 


1 


_ 


-+ 1 


|UP 


-+- 
1 


20 


-+— 
1 


_ 


-+ 1 

| OPERAND | 


| GIVING 


1 

_X- 


21 


1 
_j 


- 


-+ 1 

| OPERAND | 
— .X J 


|DOWN 


t 

1 

I - 


22 


T 

1 

_x 


- 


— T 1 

j OPERAND | 
- X J 


| REPLY 


t 
1 


25 


T 
1 


- 


t 1 
| OPERAND | 


|BUY CHAMELEON 


1 


27 


■+— 
1 

_x 


- 


-+ ^ 

| OPERAND | 
. x — J 


|MTA 


T 

! 


27 


T 

| OPERAND 


t — 1 
1 | OPERAND 2| 


|MSA 


-+- 
1 


28 


"+ 

| OPERAND 


-+ A 

1| OPERAND 2| 




i. 




-X— 




. x J 


| DEFINED 


T 
1 




T 
1 




T 1 


| SUBSCRIPT 


1 


2E 


| OPERAND 


I ~ I 
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r t t t 1 

I COMPILER || | | 

j FUNCTION | 30 | OPERAND j - | 

|. + + x -I 

| COMPILER || | | 

J FUNCTION CALL | 32 | OPERAND | - j 

j, + + + ^ 

j COMPILER || | | 

| PSEUDO- VARIABLE j 34 j OPERAND | - j 
J. + + + ^ 

jBUY ASSIGN j 37 j OPERAND lj OPERAND 2| 

J. + X + ^ 

JARCO | 38 j - | - | 
j. + + + ^ 

j PSEUDO- VARIABLE | 3A | OPERAND | - | 

| FUNCTION | 3C | OPERAND | - | 
J. + X + ^ 

| SUBSCRIPT | 3E | OPERAND | - | 
J. + X + ^ 

| COMMA | 4i j - I * I 

I. + — X + ^ 

j FUNCTION COMMA | 42 | - | OPERAND | 

|. x x + -j 

j COMPILER || | | 

| FUNCTION COMMA | 44 | - j OPERAND | 

J. + X x ^ 

j ACT | 45 | OPERAND 1 | OPERAND 2| 

|. X X + ^ 

j COMPILER ASSIGN | 46 | OPERAND 1 | OPERAND 2| 
•._., X + + ^ 

j ASSIGN | 47 | OPERAND 1 | OPERAND 2| 

j. + — + + ^ 

| DROP I 48 | - | OPERAND | 

| CONCATENATE | 49 | OPERAND 1 | OPERAND 2| 

I. + — + + ^ 

| BUY B j 4A | - | OPERAND j 
|. + + + J 

| OR | 4B | OPERAND 1| OPERAND 2 
J. X + + j 

j AND | 4D | OPERAND 1 | OPERAND 2| 
j. X X + J 

| NOT I 4F | - | OPERAND 

| LIST' | 52 | - | 

|. + + x 

JEDIT' j 53 | - j 

J. X X + J 

| DATA' I 54 | - | 

J. + + + 

| STRING* I 55 | - | 

J. X X + J 

JSTMPD | 56 | OPERAND 1 | OPERAND 2j 
|. X X + J 

j MULTIPLE ASSIGN | 57 | OPERAND 1 | OPERAND 2 
J. X + X J 

|TMPD | 58 | OPERAND 1 | OPERAND 2 

J. 1 1 + J 

JJMP j 5B | OPERAND 1| OPERAND 2 

j. X x + . 

|RPL* j 5C j - j 

J. X x + J 

| LITERAL CONSTANT | 5E | - | OPERAND 

L i X X 



♦This triple may 
format lists. 



have two operands in 















| FORMAT LIST' 




5F 


| - 


1 






-+- 




.X 


_ + 




|UP f 




60 


| 


1 






-+- 




.X 


-X 




|DO EQUALS 


| 


61 


| OPERAND 
-X 


1 | OPERAND 
- X 


2| 




1 




T 


T 




|DOWN» 




62 


| OPERAND 


1 
1 
1 | OPERAND 




| ERROR 


63 




| LESS/EQUAL 


65 


2| 




1 




-X— — 


X 






1 




T 


— .j. — 




| GREATER/EQUAL 




67 


| OPERAND 


1 | OPERAND 


2| 




-+- 




_X 


-+ 




|LEFT 




68 


| OPERAND 


1 | OPERAND 


2| 




"+- 




.X 


»+ 




|NOT EQUAL 




69 


| OPERAND 


1 | OPERAND 


2| 




-+- 




4 


-+ 




| EQUAL 




6B 


| OPERAND 


1 | OPERAND 


2| 




" + - 




-+ 


-+ 




| GREATER 




6D 


| OPERAND 


1 | OPERAND 


2| 




1 




_x 


j «._ 






1 




T 


— -| — — 




| DEFINED 








1 




| SUBSCRIPT' 


"+- 


6E 


| OPERAND 
| OPERAND 


1 

1 | OPERAND 




|LESS 


6F 


2| 




"+- 




.X 


-+ 




| COMPILER 








1 




| FUNCTION 1 




70 


| OPERAND 


1 






-+- 




_X 


-+ 




| COMPILER 








1 




| FUNCTION CALL' 




72 


| OPERAND 


1 






-+" 




-X 


-+ 




| MINUS 




73 


| OPERAND 


1| OPERAND 


2| 




"+- 




_X 


-+ 




| COMPILER 








1 




| PSEUDO- VARIABLE 


t 1 


74 


| OPERAND 


1 






-+- 




-X 


-+ 




|PLUS 


-+" 


75 


| OPERAND 
| OPERAND 


1 | OPERAND 
1 | OPERAND 


2| 


| DIVIDE 


77 


2| 




"+- 




-X 


"+ 




| MULTIPLY 


I 


79 


| OPERAND 
-X— 


1 | OPERAND 
. X — — 


2| 




1 




T 


T 




| PSEUDO-VARIABLE 


f 1 


7A 


| OPERAND 


1 






-+- 




-X 


-+ 




(PREFIX MINUS 




7B 


| 


| OPERAND 






-+- 




-X 


-+ 




| FUNCTION' 




7C 


| OPERAND 


1 






-+" 




-X 


-+ 




| PREFIX PLUS 




7D 


| 


| OPERAND 






"+- 




-X 


-X 




| SUBSCRIPT' 


1 


7E 


| OPERAND 

-X — — - 


1 

__x_ 






1 




T 


— f- 




| EXPONENTIATE 




7F 


| OPERAND 


1| OPERAND 


2| 




-+- 




-I 


__X 




|TO 




80 


| - 


1 






" + • 




_X 


.-X 




| ALLOCATE 




81 


1 - 


| OPERAND 






"+- 




-X 


__X 




|BY 




82 


1 


1 






-+- 




-X 


"+ 




|FREE 




83 


1 


| OPERAND 






- + ■ 




-+ 


-+ 




| WHILE 




84 


| OPERAND 


1 




L _ 
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r t t T 1 

j SNAP | 86 | - | OPERAND j 
J. 1 + + ) 

| DELAY | 8B | - j OPERAND | 
|. + + + ^ 

|CV | 8C | OPERAND 1 | OPERAND 2| 
^ + + + ^ 

| EXIT | 8D | - | - | 
J. + + + ^ 

| STOP | 8F | - | - | 
J. + + + ^ 

| LINE | 90 | - | OPERAND | 
h + + 1 ., 

| END ALLOCATE | 91 | - | - | 
,. + + + ^ 

j PAGE | 92 | - | - j 

j SKIP | 94 | - j OPERAND | 

j DISPLAY | 95 | - (OPERAND j 
■, + + 1 ^ 

j COLUMN | 96 | - | OPERAND ] 

j. X X + ) 

j SIGNAL I 97 | - | OPERAND | 
h X + X ^ 

JE j 98 j - j - | 

|. -X X X ^ 

| REVERT I 99 | - | OPERAND | 

(. X X X ^ 

JF | 9A j | - | - j 

|. X + X ^ 

JC | 9E | - | - j 

y + X X ) 

| A | A0 | | OPERAND | 
j. + + X 4 

j CALL | Al | - | OPERAND | 
h + X X 4 

JB | A2 | | OPERAND | 
h + X X ^ 

j RETURN I A3 j - j OPERAND j 
(. X X + 4 

|P | A4 j | OPERAND | 

| GO OUT OF BLOCK | A5 j - | OPERAND | 
|. + X + ^ 

JR | A6 | | OPERAND | 

|. X X X 4 

| GO TO I A7 | - | OPERAND j 

j. X X + 4 

| SELL I AC | - | OPERAND | 
(. X + + ^ 

| BUY I AD | - | OPERAND | 

|. X + X i 

JX j AE | j OPERAND j 
h X X + ^ 

j BUYS | AF j - | OPERAND j 
|. + X + ^ 

JPROC | B3 | - | OPERAND | 

|. X X X 4 

j OPERAND | B5 j - | OPERAND | 
j. + X + 4 

I ITERATIVE DO | B7 | OPERAND | - | 
| DO | B9 | OPERAND | - | 

|. + x x ^ 

JIF j BB j OPERAND 1 j OPERAND 2| 
J. X X X ^ 

|SN2 | BC | - | OPERAND | 
L X X J- J 



r t t t 1 

JNOSNAP I BE j - (OPERAND j 

| FORMAT | BF | - | OPERAND | 
(. + X + < 

j TO' I CO | - j OPERAND j 
y + + + < 

| BY* | C2 | - j OPERAND j 
|. + X + ^ 

| WHILE* | CU | OPERAND 1 j OPERAND 2| 

|. x x + 4 

j WRITE | C7 | - j - j 
|. + + + ^ 

| READ | C9 | - | - j 

|CV* | CC | OPERAND 1 | OPERAND 2| 
j. + + + ^ 

j STATEMENT NUMBER | DO j OPERAND lj OPERAND 2| 
h + 1 + ^ 

j STATEMENT LABEL | D2 j OPERAND 1 j OPERAND 2| 
h X X + ^ 

j COMPILER NUMBER | D4 | - j OPERAND j 

I. + + + ^ 

j GET j D5 j - | - j 
J. + + + ^ 

| COMPILER LABEL | D6 | - j OPERAND | 

| PUT | D7 | - | - | 
(. + + + ^ 

|E* j D8 | - | - | 

|. x x + ^ 

j UNLOCK j | D9 j - j - j 

|F' I DA | - | - | 
|. X + + 1 

j REWRITE | DB | - j - j 

± + + + ^ 

j OPEN | DD | - | - j 

|. x x + H 

|C* j DE j - | - | 

| CLOSE | DF | - | - | 

j. + + + 4 

j CALL* I 'El | - | - j 

|. + x x 4 

|P* | E4 | - j - j 

| END PROG I EB | - | - | 

| END BLOCK | ED | - | - | 

|. X + X 4 

j END PROG 2 j EE j - | - | 

J. X X + 4 

j END I/O I El j - j - j 
h + + + ^ 

JPROC 1 | F3 | - | OPERAND | 
h + + + ^ 

j BEGIN' | F5 j - j OPERAND | 

j ITERATIVE DO 1 j F7 | - j OPERAND | 

| DO" j F9 j - j OPERAND | 

| IF* OR ON | FB | - | OPERAND | 
h + + + ^ 

I FORMAT* I FF I - I - I 



I X i X J 
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5. TEXT CODE BYTES IN PSEUDO-CODE 



1 2 3 456789AB 

T T T T T T T T T T T T 

JDCVO JOSM1 JBGPE j BLBS | LCR j LCDRJ LCER JLM | BCTA* j LH j LA j CLI 

1 |DCV1 |OSM2 |EOB | BLBS' | BCR | SPM | CLR | SLA | BC | CH | CL | MVI 

2 |DCV2 J ALLOC | | BUYS | HER | LTR | ALR |SLDA|DCF | AH J ft.L | NI 

3 JDCV3 JDCA3 j | PINS | HDR |LTER|SLR |SLDL|BCTA | SH | SL | 01 

n |DCV4 |DCA4 | ADR | RWA | BCTR| LTDR| RER | SLL | BCT | MH | STC J SSM 

5 |DCV8 J FREE | SN3 | APRM \ NR |LNR | LPR | SRA |N | STH | ST | TM 

6 JDROP [BUY |BCIN | USNG | OR | LNER| LPER | SRDA | O | STRD ] STRE | XI 

7 [EQU J SELL | STOP J DATA JXR | LNDR| LPDRj SRDL| X | STD | STE | LA f 

8 [PROC |PROC JBGNP ] FMT | LR j LDR | LER | SRL |L | LD | LE | L* 

9 | BEGIN] BEGIN' JBGNP' | FMT* | CR | CDR | CER | STM \C | CD | CE | BCT* 

h |STK |ADV |DROB*| | AR |ADR | AER | BXH |A J AD | AE | FMT 

B [EOP JPLBS [PLBS'l j SR j SDR | SER j BXLE | S | SD | SE |FMT" 

C |E0P2 |PCBS |PSLD | ERROR | MR | MDR | MER | SL1 |M | MD | ME | SN2 

D |IPRM |IPRM* [ABS | PFMT | DR | DDR j DER j SN |D | DD j DE | 0SM3 

E |EPRM |EPRM' JABS' \ [SVC | AWR | AUR J CLI { IC | AW | AU j AD I 

i |ITDO |ITDO' |ALIGN| |BALR|SWR | SUR | CN | BAL | SW |SU | 
L J. X X X X X X X X X X. 



L X X X X X X X X X X X X X J 



C D E F 

T T T T 1 

|CLC |TR || 

+ X I__X J 

|MVC |TRT | 

x X 1__ + j 

|MVN | PACK | | 

X X X—X J 

|MVO JUNPK 

X X X__X J 

jMVZ | IGNORE | 

X X X__X ^ 

INC | j| 
4 X +— X ^ 

| OC j CONV | 

X X + „X j 

I XC I CONV | 

X X X__X J 

j ZAP | USSL j j 

X X +--+— 

|CP |DRPL | | 

|AP |CNVA | 

|SP |SINL | 

X X X__| J 

| MP j CNVC | 

4 1 x—x j 

I DP I | 

|ED | || 

X X X—X J 

|EDMK| 

X X X. 



6. TEXT FORMATS IN PSEUDO-CODE 



Pseudo-code Design 



immediately after the symbolic 
representation of the instruction to 
which if refers. 



Pseudo-code is essentially a symbolic 
representation of machine code, designed in 
such a way that it is possible to directly 
transform it into executable machine code 
by an assembly process. 

A unit consists of a one-byte operation 
code followed by, normally, a two or four- 
byte field and on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 

By having most units either three or 
five bytes long, the scanning of pseudo- 
code is a fairly straightforward process. 

The format of the various pseudo-code 
units is as follows: 

Three- byte unit: this consists of a 
one-byte operation code followed by a 
two-byte literal offset, and it appears 



Five-byte unit : there are four basic 
five-byte units which have the follow- 
ing formats. 

Bytes 

12 2 

r t t 1 

| OP | 1 | R2 | 

I I Rl I I 

j CODE j j DICT REF j 
L X X J 

Bytes 

12 2 

r t t ~i 

I op I I I 

j j R3 j OFFSET j 
| CODE j j | 

L X X_, , , J 
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Bytes 



12 2 

r T t 1 

I OP | | | 

I 1 Rl | R2 | 
I CODE | | I 

L J. X J 

r t t 1 

j OP j 1 I R2 I 

I I HEX I | 

j CODE j | DICT REF | 

L X J. J 



Using these units with, if necessary, a 
three-byte unit, it is possible to symboli- 
cally represent any possible RR, RX, RS or 
SI instruction. 



Vari able length unit: the format of 
this is : 



L R1,J0E(R3) 
Bytes 

12 2 

r t t 1 

| L |0 Rl j DR(JOE) | 

L X J. J 

r t 1 

| 0SM2 | R3 j 

L X J 

L Rl,J0E+2U(R3) 
Bytes 

12 2 

r t t 1 

j L JO Rl j DR(JOE) | 

L X X J 

r t t 1 

j 03M3 j 24 j R3 j 

L X X J 



Bytes 



r t 

I OP | 

j | FLAG 

| CODE j 

L X 



•T 1 

I I 

J VARIABLE j 

I I 

.X J 



With a specially designed variable field 
described by a two-byte flag, it is possi- 
ble to represent any SS instruction with 
this unit. 

The first byte of the two-byte flag 

indicates the format of the variable field 

and the second gives the length of the 
total unit. 



Alternatively, JOE might be a base reg- 
ister in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. The two forms are distinguished 
by setting the flag bit of the first 
symbolic register egual to one when a base 
register is intended. 



Bytes 



L R1,0(R3,R2) 

12 2 

r t t 1 

j L J 1 Rl j R2 | 

L X X J 

r T 1 

| 0SM2 | R3 | 
L X J 



RX Instructions 

The following examples illustrate the 

basic forms of an RX instruction and the 

way in which they are represented in 
pseudo-code. 

L R1,J0E 
Bytes 

12 2 

r t t 1 

j L JO Rl | DR(JOE) j 

L X X J 

L Rl, JOE+24 
Bytes 

12 2 

r ' t t 1 

j L JO Rl j DR(JOE) | 
L X X J 

r t 1 

J 0SM1 j 24 j 
L X— J 



When a branch instruction is generated 
which branches to a compiler generated EQU 
value, bit two of the second byte is set to 
one to indicate that the second field is in 
fact an EQU value. 



Bytes 

11 12 

r t t t 1 

I B2 I 01 I HEX | EQU VALUE | 
L X X X J 

Bytes 

11 12 

r t t t 1 

I 111 I R2 I 

| BC j j HEX j. -j 

I j j | DICT REF j 
L X X X J 
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RS Instructions 



SI Instructions 



The following examples illustrate the 

basic forms of an RS instruction and the 

way in which they are represented in 
pseudo-code: 

BXH Rl,R2 f ALPHA 
Bytes 

12 2 

r t t 1 

| BXH | Rl | DR( ALPHA) j 
L J. J. J 

r T 1 

j 0SM2 j R2 | 
L X J 

BXH R1,R2„ ALPHA+24 
Bytes 

12 2 

r t t 1 

j BXH | Rl j DR( ALPHA) | 
L X X J 

r t t 1 

j 0SM3 I 24 I R2 I 

L X X J 



Alternatively, ALPHA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register as in the RX instruction. 



SLA Rl,6 



Bytes 



SLA 



Rl 



The following examples illustrate the 

basic forms of an SI instruction and the 

way in which they are represented in 
pseudo-code: 

CLI BETA^'FF* 
Bytes 

12 2 

r t t 1 

| CLI | FF | DR(BETA) | 
L x X J 

CLI BETA+UjX'FF' 
Bytes 

12 2 

r t t 1 

| CLI |0 FF | DR(BETA) | 
I X X J 

r T 1 

j 0SM1 j 4 j 
L X J 

Alternatively, BETA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. 



SS Instructions 



Basically, an SS instruction consists of 
two base registers and a length byte. 
Since this does not conform to the format 
of other items of pseudo-code, it is neces- 
sary to represent an SS instruction with a 
variable length field, the length of which 
is specified in the second of two flag 
bytes immediately following the operation 
code. 



RR Instructions 



The following example illustrates the 
form of an RR instruction and the way in 
which it is represented in pseudo-code. 



Bytes 



AR R1,R2 



AR 



Rl 



2 

R2 



This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 
same time maintaining the items in the 
guise of pseudo-code. 



Variabl e Lengt h Item FLA G 



The first bit of the FLAG indicates 
whether or not the unit represents a 
machine instruction. In the former case, 
the format of the instruction is: 



Bytes 
1 



























|0P | 


1 I 




1 




1 




1 




I 




I 


j | FLAG | LENGTH | 


Fl 


1 


F2 


1 


F3 


1 


F4 


I 


F5 


I 


|CODE| 


1 1 




1 




1 




1 




1 




1 
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The format of the FLAG is: 



Bit 
1 
2 
3 
4 
5 



Zero 



One 



Always zero 

F2=dict. ref. F2=sym reg. 

F3=dict. ref. F3=sym reg. 

FU not present F4 present 

F5 not present F5 present 

6-8 Not used 



The FI field is identical to the length 
field in the SS machine instruction. The 
field contains one or two lengths which are 
each one less than the corresponding 
lengths used in Assembler Language. The FI 
and F5 fields contain literal offsets. 



Compiler Function (Bit 1=1) 

In compiler functions, the format of the 
FLAG depends on the operation code. Thus: 

r t t t t 1 

j CONV | FLAG | LENGTH | Fl | F2 | 
L X X X J. J 

The format of the FLAG is: 
Bit s Both Zero Both One 

1 Always one 

2 and 3 Fl=dict. ref. F1=TMPD operand 

4 and 5 F2=dict. ref. F2=TMPD operand 

6-8 Not used 

The FLAG in the IGNORE item does not 
contain any information. 

The following examples illustrate the 
basic forms of an SS instruction and the 
ways in which they are represented in 
pseudo-code. 

MVC ALPHA ( 7 ) , BETA 
Bytes 

1111 2 

r T T T T 1 

| MVC j X' 00* j 8 j 6 j DR( ALPHA) | 
L X X X X J 

2 

r 1 

JDR(BETA) | 
L J 



ZAP ALPHA+3(14)» BETA(6) 

Bytes 

1111 2 

| ZAP | X* 10* j 10 | 13 5 |DR(ALPHA)| 
L X X X X J 

2 2 

r r 1 

|DR<BETA)| 3 j 
L x J 

MVC ALPHA(6) # BETA+11 
Bytes 

1111 2 

r T T T T 1 

JMVCJX'OS'j 10 j 5 |DR(ALPHA)| 
I X X X X . J 

2 2 

r t 1 

JDRtBETMJ 11| 
l X J 

AP ALPHA+3(1U), BETA+11 (6) 

Bytes 

1111 2 

|AP |X'18' | 12 '| 13 5 |DR(ALPHA)| 
L X X X X J 

2 2 2 

|DR(BETM| 3| 11 1 
L X X J 

Alternatively, ALPHA and/or BETA might 
be base registers, in which cases, the 
dictionary references would be replaced by 
symbolic registers and the FLAG byte would 
be set accordingly: 

MVO ALPHA(14), 11(6 # R1) 

Bytes 

1111 2 

r T T T T 1 

| MVO j X* 28' j 10 j 1 13 5 j DR( ALPHA) j 

L X X X X J 

2 2 

r t 1 

| Rl | H| 

L J. J 



7. TEXT FORMATS IN ABSOLUTE CODE 



Where a standard set of assigned reg- 
isters is to be used for a section of code, 
e.g. in the construction of prologues, or 
during the generation of addressing 
instructions, it is possible to generate 
instructions with registers in absolute 
code* instead of the normal pseudo-code 
two-byte symbolic registers. (See "Text 
Formats in Pseudo-Code" in this Appendix.) 
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Sections of absolute code are preceded 
£>y ABS markers and followed by ABS* mark- 
ers. The operation codes are the same as 
the normal pseudo-code instructions (see 
"Text Code Bytes in Pseudo-Code" in this 
Appendix) , but the instruction formats dif- 
fer, as shown in the following examples: 



RR Instructions 



Other Instructions 

Bytes 

1 11 

r t t 1 

| OP CODE | Rl R2 J B2 j 
L J. X J 

2 12 

r t t 1 

| DICT REFCE j 0SM2 j OFFSET j 
l X J. J 



Bytes 



SI Instructions 



r t 1 

| OP CODE | Rl R2 | 
L J. J 



RX Instructions 



Bytes 



1 11 

r t t 1 

j OP CODE | Rl X2 j B2 j 
L X X J 

2 12 

r t t 1 

| DICT REFCE j OSM2 | OFFSET | 
L X X J 



Bytes 

1 112 

r t t T 1 

j OP CODE j MASK j Bl j DICT REFCE j 
L X X X J 

1 2 

r t t 

| 0SM2 | OFFSET | 
L X J 

Note that the 0SM1/0SM2 markers and their 
following offsets are all optional; note 
also that the 0SM2 byte does not have a 
register following it, as in normal pseudo- 
code* but a literal offset. 

After Phases RA and RF all instructions 
in the text will be in absolute code. 



SS Instructions 



8. SECOND FILE STATEMENTS, AND THE FORMATS 

OF COMPILER FUNCTIONS AND PSEODO- VARIABLES 



Bytes 



1 11 2 

T T T 1 

OP CODE | LENGTH | Bl | DICT REFCE | 

J. X JL J 

12 12 

T T T 1 

B2 | DICT REFCE | OSMl | OFFSET | 
X X X J 

1 2 

T 1 

0SM2 j OFFSET j 
X J 



RS Instructions 

Shift Instructions 
Bytes 



| OP CODE 

L 



Rl 



■T 1 

j OFFSET j 
.X J 



Second File Statements 



Any expression occurring in an attribute 
must be put into a form which is acceptable 
to the translator phase. This means that 
it must look like a source statement. To 
comply with this, all expressions dealing 
with array bounds, string lengths, 
DEFINING, and INITIAL value iteration fac- 
tors are converted into assignments to 
function references. These functions have 
a special meaning. They are not entered in 
the dictionary, and their dictionary ref- 
erences are to a region in the communi- 
cations area. The pseudo-code physical 
phase dealing with each particular function 
generates in-line code instead of a func- 
tion reference. 

All the statements of this type are 
generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the "second file." 
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The statements generated have the fol- 
lowing overall format: 

Byte Number Description 

1 Code byte SN2 



2-3 



Dictionary reference 
Options byte 



5 Statement type markers 

6 onwards Statement body 

The dictionary reference is the ref- 
erence of a second file dictionary entry. 
This is described in Appendix C. The 
options byte is that for the options opera- 
tive in a prologue, i.e. no interruptions 
are accepted. 

Array Bounds 

The format of the second file statement 
for array bounds is as follows: 

Byte Numbe r Descriptio n 

1 Assignment statement marker 

2 Code Byte X*00' 
3-4 ADV code X'0002 1 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X'00' 

8-9 Dictionary reference of 
array 

Triple operator code byte 
X'44* 



10 

11 
12 
13 

14 

15 
16 
17.. 



Code byte X'5E' 

Code byte X"00' 

Code byte X'00* for lower 
bound, X*01' for higher 
bound 

Number of the dimension 
whose bound is referenced 

Right parenthesis 

Triple operator code X'46* 

Expression for bounds 

Statement terminating semi- 
colon 



Multiplier Function 

Multiplier function statements are used 
to denote copying of a section of one dope 
vector into another- The format is: 

Byte Number Description 

1 Assignment statement marker 

2 Code byte X'OO* 

3-4 MTF code bytes X'0010' 



5 

6 

7 

8-9 

10 



14 

15 
16 

17-18 
19 

20 
21 
22-23 

24 

25 

26 

27-28 

29 

30 



Compiler call marker 

Left parenthesis 

Code byte X'OO* 

Dictionary reference 1 

Triple operator code byte 
X'44' 



11 Code byte X'00 1 

12-13 Dictionary reference 2 



Triple operator code byte 
X»44' 

Code byte X'SE* 

Code byte X'OO 1 

Offset 1 

Triple operator code byte 
X»44» 

Code byte X'SE* 

Code byte X'OO' 

Offset 2 

Triple operator code byte 
X»44' 

Code byte X'SE* 

Code byte X'00 1 

Length 

Right parenthesis 

Statement terminating semi- 
colon 



This statement requires the number of 
bytes specified by the length to be moved 
from the dope vector of the item at dic- 
tionary reference 2, starting at an offset 
of offset 2, to the dope vector of the item 
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at dictionary reference 1; 
offset of offset 1. 



starting at an 



3-4 



Code byte X'OO* 



IDV code 



Compiler pseudo-variable 



The string length statement is used to 
initialize the maximum length slot in a 
string dope vector. The format is: 



Byte N umber 
1 
2 

3-4 
5 
6 
7 

8-9 
10 
11 
12... 



Description 

Assignment statement marker 

Code byte X f 00' 

SDV code X'OOOir 

Compiler pseudo-variable 

Left parenthesis 

Code byte X'OO 1 

Dictionary reference 

Right parenthesis 

Triple operator Code X'46' 

Expression 

Statement termination semi- 
colon 



The dictionary reference is that of the 
item whose dope vector is being initial- 
ized. If the expression is defining the 
length of a string being returned by an 
internal function, then the dictionary ref- 
erence is that of the entry type 2 belong- 
ing to the label. In Figure 6 the ref- 
erence is to B or C depending on whether 
the statement appeared in a PROCEDURE/ENTRY 
statement, or an ENTRY attribute. If the 
item is a data item, an external procedure, 
or a formal parameter entry point, then the 
dictionary reference of that particular 
item appears in the statement. 



INITIAL Value Statements 



INITIAL value statements are used to 
initialize a vector of storage used to 
contain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 
as follows: 



6 Left parenthesis 

7 Code byte X'OO* 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator code X'46' 

12... Expression 

Statement terminating semi- 
colon 

The dictionary reference is to the item 
being initialized. The integer is the 
number of assignment statements of this 
type* and for this variable, that have been 
generated before this one. 



Second File Statements for DEFINED 



Second file statements are generated 
when an expression is associated with 
DEFINED, but the expression does not con- 
tain any iSUBs . The format is: 



Byte Numb er 
1 

2 
3-4 



5 
6 
7. 




Description 

Assignment statement marker 



Description 

Compiler assignment state- 
ment marker 

Code byte X'OO* 

ADF code; 

X*0011* for base only 

X , 0012 i for subscripted base 
X'OOIS 1 for base with iSUB* s 

Pseudo- variable marker 

Left parenthesis 

Base and subscript list 

Right parenthesis 

Statement terminating semi- 
colon 
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9.. PSEU DO-CODE PHASE TEMPORARY RESULT 

DESCRIPTORS (TMPD) 



T emporary Description Stack 



All information on temporary results is 
contained in this stack. Each item in the 
stack consists of 10 bytes. A maximum of 
200 items is allowed. 



Byte 1 



Flag 1 



Byte 2 



Code 2 



Bytes 3-4 P,Q_ 



Bytes 5-6 BASE 



Byte 7-8 NDX 



describes the addressing 
method contained in bytes 
5 through 10. 2 bits in 
this byte are also used 
during the release of 
temporary results 



describes the radix, 
scale, mode, string type 
etc. of the temporary 
result. The format of 
this byte is identical to 
the similar byte in the 
dictionary and the DED 
used by the Library sub- 
routines, routines. 
(See "Data Byte" in 
Appendix C. ) 



describes the precision 
and scaling of arithmetic 
type results 



in one 
forms : 



of the following 



1. "Reg by value" reg- 
ister containing the 
result - no index or 
offset is allowed. 

2. "Reg by value" reg- 
ister containing the 
base address of the 
result stack 

3. Offset from beginning 
of current temporary 
storage for results 
held in the temporary 
storage stack 

4. Dictionary reference 
which specifies the 
base address of the 
result of a subscript 
calculation 

in one of the following 
forms: 

1. Symbolic indexing reg- 
ister for BASE type 2 
and 4. 



Bytes 9-10 OFS 



Strings 
ways: 



2. The number of bytes 
required in the tem- 
porary core stack for 
BASE type 1 



which is a literal offset 
to be inserted in the 
base address. When used 
with BASE type 1 the 
actual temporary offset 
is the sum of the offsets 
and the number of bytes 
required in the stack is 
the sum of the contents 
of OFS and NDX 



are described in the following 



If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 



If the string is of variable length or 
longer than 256 bytes, the storage is 
bought and sold when required. This 
type of string always has a dictionary 
entry. 



If the string has no dictionary entry, 
it is described by the usual CODE 
bytes, the temporary core offset in 
BASE, and the byte length in NDX. 



If the string has a dictionary entry, 
it is described by the usual CODE bytes 
and the dictionary reference IN BASE. 
The dictionary entry describes the 
location of the string which may be 
either the temporary area offset and 
size for the first type, or a BUY 
statement for the second type. 

The 'top* of the stack is indicated by 
two pointers: PSTK and LSTK. PSTK points 
to the 'physical' top of the stack, which 
is the last item added. LSTK points to the 
'logical* top of the stack, which is the 
next item to be released. The difference 
is necessary because the temporary storage 
stack may not be released in the same order 
as the description stack. When an item in 
the description stack is released, the 
corresponding temporary storage may not be 
at the top of the stack storage. As the 
storage stack is always released in order, 
the description is flagged and the LSTK is 
reduced by 1 item. When the corresponding 
temporary core is released from the top of 
the storage stack, the description is com- 
pletely removed from the 'physical' stack. 
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Whether F7 




FLAG 


F5 


F6 


applicable 


Comments 


+ X X X 


x'oo* 


Dictionary 
reference 


" 


Yes 




X , 02* 


Dictionary 
reference 


— 


No 


STRUT2 output — must SELL dictionary ref. 


X'OV 


Dictionary 
reference 


— 


No 


REPEAT function result. 


X'05* 


Dictionary 
reference 1 


Dictionary 
reference 2 


No 


SUBSTR function result. 


X'20* 


Dictionary 


Index 


Yes 


Arithmetic subscript, or SDV for varying 




reference 


register 




string subscript. 


x'm' 


Symbolic 


Dictionary 


Yes 


Non-adjustable fixed string subscript, with 




register 


reference 




DROP in STRUT2. 


X*49' 


Symbolic 


Dictionary 


Yes 


Non-adjustable fixed string subscript, without 




register 


reference 




DROP in STRUT2. 


X*80" 


Register 


- 


No 


Item in register -- F7 cannot exist. 


X'CO' 


Workspace 
offset 


— 


Yes 




X*Cl'i 


Workspace 
offset 


Dictionary 
reference 


Yes 


SDV for adjustable fixed string subscript. 


x'cs' 


workspace 
offset 


Dictionary 
reference 


No 


SUBSTR pseudo- variable result. 



(. X * X 4 X X J 

Notes 1. Since F6 cannot be used for both an index register and a dictionary 
reference, bits 2 and 7 of the FLAG byte cannot both be 1* 
2. Many other bit configurations in the FLAG byte are meaningful and could 
be used for future applications. 

i »--_- j 

Figure 11. Temporary Descriptions in Pseudo-Code — Use of TMPD Triple Fields F5 and F6 



Temporary Descriptio ns in Pseudp- Code 

Descriptions are passed between pseudo- 
code phases using two or three TMPD 
triples, with the following formats: 

r T T T T T 

j TMPD j FLAG | F2 j F3 j F4 | 

| TMPD | F5 | F6 | 
^ X— *. w-X ^ 

| TMPD | F7 | 1 

-L X~^ X— ._« ■ J 

1. FLAG describes the use of fields F5, 
F6, and F7. 

Bit 

Number Valu e Meaning 

and 1 00 F5 contains a dictiona- 
ry reference 

11 F5 contains a temporary 
workspace offset 

01 F5 contains symbolic 
register with address 
of item 

10 F5 contains register 
with value of item 
2 F6 does not contain 
index register 

1 F6 contains index reg- 
ister 



Two TMPD triples are 
used 

1 Three TMPD triples are 
used, and F7 contains 
an offset 

Normal setting. String 
utility STRUT2 drops 
symbolic register in F5 
if used for input 

1 String utility STRUT2 
does not drop symbolic 
register 

Normal setting 

1 Result of an invocation 

Of SOBSTR or REPEAT 

No SELL is required 

1 User of this descrip- 
tion must SELL dic- 
tionary reference in 
F5. Set by string 
utilities for adjusta- 
ble string result 

F6 does not contain a 
dictionary reference 

1 F6 contains a dictiona- 
ry reference 



CODE contains 
(describing type., 
etc. ) 



the data byte 
radix, scale, mode. 



F3 and F4 contains 
a. Precision and scale factor 
coded arithmetic type data 



of 
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b. String length for coded non- 
adjustable strings (maximum length 
for varying strings) 

c. Picture dictionary reference for 
data with picture 

4. F5 and F6 are at present used as shown 
in Figure 11. 

5. F7 can be used by adding X'10' to the 
FLAG byte in all cases which give a 
meaningful result (see Figure 11). 



brief description of the meaning of the 
term or abbreviation. 



The phase in which the term or abbrevia- 
tion is used is given in the second column 
of the table- The key to the code used is: 

R After the Read-In Phase 
PS During the Pseudo-Code Phase 
T A triple or translator input 
code byte 



10. LIB RARY CALLING SEQUENCES 



Term or 
Abbreviation 



Used In 

Phase Description 

R,T Character string for- 
mat item 



Inte rnal library routines are used for 
such things as data type conversion, where 
there is no explicit reference to the 
routine in the PL/I source program. The 
arguments are handed to the routines in 
registers. In pseudo-code form, assigned 
registers are used, and special markers, 
IPRM and IPRM' are used to indicate the 
calling sequence to the register allocator 
phase. Internal library calls appear in 
pseudo-code as: 

IPRM 

L 1, (ARGUMENT 1) 

L 2„ (ARGUMENT 2) 



L 15, IHE- 
BALR14, 15 
IPRM' 



External 



library 



(ROUTINE NAME) 



routines 



calls 

correspond to explicit references to func- 
tions or I/O statements in the PL/I source 
program. The arguments to the routines are 
placed in workspace, and register 1 is set 
to point to the first argument. For 
pseudo-code form the calling sequence is 
preceded by an EPRM marker and followed by 
an EPRM* marker. Thus, the library calling 
sequence appears as: 



MVC 



WSP (N), (ARGUMENT 1) 



EPRM 

LA 1, WSP 

L 15, IHE- 

BALR 14, 15 

EPRM' 



(ROUTINE NAME) 



1 1. DESCRIPTIONS OF TERMS AND 
ABBREVI A TIONS USED IN TEXT DURING A 
COMPILATION 



The table in this section gives first, 
the term or abbreviation; second, the phase 
in which the term is used; and third, a 



ABS 



ABS' 



ADR 



PS 



PS 



PS 



ADV 



PS 



ALIGN 



ALLOCATE 



APRM 



ARCO 



PS 



R,T,PS 



PS 



T, PS 



ARGUMENT MARK R 



Indicates the start 
of absolute code 
(Appendix D7) 



Indicates the end 
absolute code 



of 



The two byte operand 
contains a register 
for use by final 
assembly for address- 
ing branch destina- 
tions beyond 4096 
bytes from the pro- 
gram base 

Used in 2nd file 
assignment statements 
to indicate that the 
expression has been 
calculated and that 
the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject of the second 
file statement 

Indicates that 4 byte 
alignment is required 
in the code at this 
point 



Replaces 
ALLOCATE 



the keyword 



Indicates the library 
calling sequence for 
VDA or controlled 
storage 

Provides space to 
allow insertion of 
argument conversion 
triple 

Marker used by phases 
GK and GP to indicate 
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ARRAY CROSS R,T 
SECTION 



ASSIGN 



R,T 



ASSIGN BYNAME R 



ATTRIBUTES R, T 



AUTOMATIC R 



R.T 



BACKWARDS 



BEGIN* 



BGPE 



BGNP 



BGNP' 



T,,PS 



PS 



PS 



PS 



BIT ATTRIBUTE R 



BIT CONST R 



BINARY 



the start of a func- 
tion argument 

Replaces the PL/I '*' 
used to specify an 
array cross section 

Marker which precedes 
an assignment state- 
ment 

Precedes an assign- 
ment statement with 
the BY NAME option 



Marker which precedes 
a dictionary entry 
containing the attri- 
butes which have been BUYB 
specified on an OPEN 
or CLOSE statement 

Replaces the keyword 
AUTOMATIC 



Bit 
item 



string format 



Replaces keyword 
BACKWARDS BEGIN 

Triple which termi- 
nates the BEGIN block 
triples 

Indicates the end of 
the complete prologue 
for a begin block 

Indicates the start 
of code for a BEGIN 
block with no prolo- 
gue 

Indicates the end of 
code for a begin 
block with no prolo- 
gue 

Replaces the keyword 

BIT 

Marker preceding a 
BIT string constant 

Replaces the keyword 
BINARY 



BUILTIN 



BUY 



BUY 
ASSIGNMENT 



T,PS 



BUY CHAMELEON T 



BUYS 



T, PS 



BY 



BY* 



R-T 



BY NAME 



R,T 



Replaces 
BUILTIN 



the keyword 



Code byte or triple 
which indicates that 
a temporary variable 
is required 

Triple which indi- 
cates assignment to a 
temporary variable, 
and which implies 
that the workspace 
for the temporary 
variable must be 
obtained before the 
assignment 

Triple or code byte 
which indicates that 
a scalar temporary is 
required for an 
aggregate argument to 
a generic scalar 
built in function 

Marker which indi- 
cates that workspace 
is required for a 
temporary variable of 
chameleon data type 
i.e. the data type 
is taken from the 
expression assigned 
to the variable 

Code byte or triple 
which indicates that 
a temporary variable 
is required, and that 
initialization code 
exists between this 
triple and the BUY 
triple 



Replaces 
BY 



the keyword 



Triple which indi- 
cates the end of a BY 
expression 

Replaces the keyword 
BY NAME 

Complex decimal for- 
mat item 



BLBS 



PS Indicates the start 
of the prologue for a 
BEGIN block 



C 



Triple which indi- 
cates the end of a C 
format item 



BLBS' 



PS 



BUFFERED R 



Indicates the end of CALL 

the prologue for a 

BEGIN block CALL* 

Replaces keyword BUF- 
FERED 



R, T CALL statement marker 

T Triple internal to 
phase IA which marks 
the end of a CALL 
statement 
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CHAR 
ATTRIBUTE 



Replaces the keyword 
CHARACTER 



CONDITION 



Replaces the keyword 

CONDITION 



CONTROLLED 



:HAR CONSTANT R 



CN 



COL 



COMPLEX 



Marker preceding a 
character string con- 







st ant 


CONTROL 
VARIABLE 


CHECK 


R 


Replaces the keyword 
CHECK 


CONVERSH 


CL 
CLOSE 


R f T,PS 
R,T 


Compiler label marker 
Replaces the keyword 


COPY 



CLOSE 

R,T,PS Compiler statement 
number. Can precede 
compiler inserted 
statements 

R f T Replaces the keyword 
COLUMN 

R Replaces the keyword 
COMPLEX 



CONTROL 
VARIABLE' 



DATA 



DATA* 



Replaces the 
CONTROLLED 



keyword 



R, T Marker which indi- 
cates the control 
variable of a DO loop 

R Replaces the keyword 
CONVERSION 

R, T Replaces the keyword 
COPY 

T Triple which indi- 
cates the end of a 
control variable 
expression 

R,T Replaces the keyword 
DATA 

T Triple indicating the 
end of a data direct- 
ed I/O list 



COMPILER 
ASSIGN 

COMPILER 
FUNCTION 



Code byte or triple DECIMAL 
indicating assignment 

Code byte or triple DECLARE 
used to indicate the 
start of a compiler 
function call argu- DEFINED 
ment list 



Replaces the 
DECIMAL 



keyword 



Replaces the keyword 
DECLARE 

Replaces the keyword 
DEFINED 



COMPILER T 
FUNCTION' 



COMPILER T 
FUNCTION CALL 



Triple indicating the 
END OF A COMPILER 
function argument 
list 

Code byte or triple 
used to indicate the 
start of a compiler 
function call argu- 
ment list 



DEFINED 
SUBSCRIPT 



DELAY 



DELETE 



R»T 



R»T 



Marker which precedes 
the parenthesized 
iSUB subscript list 
of a defined array 



Replaces the 
DELAY 



keyword 



Replaces the keyword 
DELETE 



COMPILER T 
FUNCTION CALL* 



COMPILER T 
FUNCTION COMMA 



COMPILER T 
PSEUDO- VARIABLE ' 



COMPILER T 
PSEUDO- VARIABLE 



Triple indicating the 
end of a compiler 
function call argu- 
ment list 

Triple used to indi- 
cate the argument of 
compiler function, or 
Pseudo- Variable 

Triple indicating the 
end of a compiler 
pseudo- variable 
argument list 

Code byte or triple 
used to indicate the 
start of a compiler 
pseudo- variable 
argument list 



DICTIONARY 
REFERENCE 



DIRECT 



DISPLAY 



DO 



DO E2UALS 



Marker indicating 
that the following 
two bytes contain a 
symbolic dictionary 
reference 

Replaces the keyword 
DIRECT 



Replaces the 
DISPLAY 



keyword 



R, T Replaces the keyword 
DO, in a non- 
iterative DO group 

R, T Marker which replaces 
the PL/I , =' in the 
iterative DO 
statement (DO 1= ) 
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DROB 



DROP 



DROP 



DRPL 



EDIT 



EDIT* 



PS Indicates to the reg- END PROG 
ister allocation 
phases that a base 
register used for 
addressing a con- 
trolled variable 
should be dropped 

T Triple used in optim- 
ization indicating 
the drop of an index 
register ENTRY 

PS Indicates that a sym- 
bolic or assigned EPRM 
register in the oper- 
and field of the 
instruction is no 
longer required 

PS Indicates the end of EPRM* 
the use of a list of 
symbolic registers 
which have appeared 
in an USSL item EQU 

R f T Floating decimal for- 
mat item 

R„T Replaces the keyword 
EDIT 

T Triple indicating the 

end of an edit ERROR 
directed I/O list 



R. T, PS 



END PR0GRAM2 T, PS 



PS 



PS 



PS 



Marks the end of pro- 
gram 

Triple which marks 
the end of the second 
file text i.e. pro- 
logue initialization 
text, which is placed 
after the source pro- 
gram text 



Replaces the 
ENTRY 



keyword 



Indicates the start 

of an external 

library calling 

sequence. (Appendix 
D10) 

Indicates the end of 
an external library 
calling sequence 

Indicates that the 
two byte operand 
field contains a 
label. The label is 
considered to be 
attached to the fol- 
lowing pseudo-code 
item 



Replaces 
ERROR 



the keyword 



EIO 



ELSE 



END 



R,T 



R f T 



END BLOCK R,T # 



END DO 



ENDFILE 



R„T 



END ITDO R,T 



END LIST MARK R 



Code byte or triple 
which indicates the 
end of an I/O state- 
ment 



ERROR 



Replaces the 

ELSE 



keyword 



Replaces the END key- 
word at the end of a 
BEGIN or PROCEDURE 
block 



Indicates the end 
a text block 



of 



Replaces the END key- 
word at the end of a 
non-iterative DO 
group 



Replaces 
ENDFILE 



the keyword 



Replaces the END key- 
word at the end of an 
iterative DO loop 

Marker used by phases 
GK and GP to indicate 
the end of a function 
argument list 



ERROR 



EVENT 



PS 



R.T 



EXCLUSIVE 



EXIT 



EXTERNAL 



R,T 



R,T 



F' 



F COMMA 



Code byte or triple 
which marks the posi- 
tion of an erroneous 
source statement 
which has been delet- 
ed 

Indicates the pre- 
sence of a source 
program error 



Replaces 

EVENT 

Replaces 
EXCLUSIVE 

Replaces 

EXIT 



the keyword 



keyword 



the keyword 



Replaces the 

EXTERNAL 



keyword 



Fixed 
item 



decimal format 



Triple which indi- 
cates the end of an F 
format item 

Triple used to indi- 
cate the arguments of 
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a function or pseudo 
variable 



FROM 



R» T Replaces the keyword 
FROM 



FILE 



FILE' 



R f T Replaces the keyword 
FILE 

T Triple indicating the 
end of a file list 



FUNCTION T 



Code byte or triple 
indicating the start 
of a function argu- 
ment list 



FINISH 



FIXED 



FIX BINARY R 
IMAGINARY 



FIX BINARY R 
REAL 



FIX DECIMAL R 
IMAGINARY 



FIX DECIMAL R 
REAL 



FIXED 
OVERFLOW 

FLOAT 



FLOAT BINARY R 
IMAGINARY 



FLOAT BINARY R 
REAL 



FLOAT DECIMAL R 
IMAGINARY 



FLOAT DECIMAL R 
REAL 



FORMAT 



FORMAT* 



R*T 



FORMAT LIST R,T 



FORMAT LIST* T 



Replaces keyword FIN- 
ISH 

Replaces the keyword 
FIXED 

Marker which precedes 
a fixed binary imag- 
inary constant 

Marker which precedes 
a fixed binary real 
constant 

Marker which precedes 
a fixed decimal imag- 
inary constant 

Marker which precedes 
a fixed decimal real 
constant. 

Replaces keywords 
FIXED OVERFLOW 

Replaces the keyword 
FLOAT 

Marker which precedes 
a float binary imag- 
inary constant 

Marker which precedes 
a float binary real 
constant 

Marker which precedes 
a float decimal imag- 
inary constant 

Marker which precedes 
a float decimal real 
constant 



FUNCTION R 



Replaces 
FORMAT 



the keyword 



Triple which marks 
the end of a remote 
format statement 



Precedes 
list 



format 



FREE 



R,T,PS 



Triple indicating the 
end of a format list 

Replaces the keyword 
FREE 



IF' 



IGNORE 



IGNORE 



R,T 



PS 



INITIAL 



INITIAL LABEL R 



INPUT 



INTEGER 



Marker which precedes 
the parenthesized 
argument list (if 
present) of an entry 
name in a function 
reference or CALL 
statement 



GENERIC 


R 


Replaces the keyword 
GENERIC 


GET 


R,T 


Replaces the keyword 

GET 


GOOB 


R, T 


GOTO out of block 
statement marker 


GOTO 


R. # T 


GOTO in block state- 
ment marker 


IDENT 


R,T 


Replaces the keyword 

IDENT 


IF 


R,T 


Replaces the keyword 
IF 



Triple which termi- 
nates an IF expres- 
sion 

Replaces the keyword 
IGNORE 

Pseudo-code item 
which indicates that 
the number of bytes 
appearing in the 
length count must be 
ignored 

Replaces the keyword 
INITIAL 

Marker which precedes 
elements of arrays of 
label variables which 
are initialized by 
being attached to 
statements 



Replaces 
INPUT 



keyword 



Marker which precedes 
an internal binary 
integer constant 



INTERNAL R 



Replaces the 
INTERNAL 



keyword 
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INTO 



R„T Replaces the keyword LOCATE 
INTO 



R, T Replaces the keyword 
LOCATE 



IPRM 



ITDO 



ITDO' 



JMP 



KEY 



KEYED 



KEYFROM 



KEYTO 



LABEL 



LEFT 



LIKE 



LINE 



LINESIZE 



LIST 



LIST* 



LIST MARK 



LITERAL 
CONSTANT 



PS Indicates the end of 
an internal library 
calling sequence 



R.T, PS Replaces the keyword 
DO in an iterative DO 
loop 



T.PS 



R.T 



R.T 



R.T 



R»T 
R.T 

R.T 



Triple which termi- 
nates an iterative DO 
expression 

Triple indicate the 
presence of pseudo- 
code- The number of 
bytes of pseudo-code 
is specified in the 
first operand 

Replaces the keyword 
KEY 



Replaces 
KEYED 



keyword 



R.T 



Replaces the keyword 
KEYFROM 

Replaces the keyword 
KEYTO 

Replaces the keyword 
LABEL 

Triple indicating a 
temporary result for 
a pseudo- variable 

Replaces the keyword 
LIKE 

Replaces the keyword 
LINE 

Replaces the keyword 
LINESIZE 

Replaces the keyword 
LIST 

Triple indicating the 
end of a list 
directed I/O list 

Marker used by Phases 
GK and GP to indicate 
the start of function 
argument list 

Indicates that the 
following two bytes 
contain a fixed 
binary constant 



MAIN 

MULTIPLE 
ASSIGN 



NAME 



NDX 



NEW PAGE 


R 


NOCHECK 


R 


NO SNAP 


R,T 


NOSNAP' 


T 


NULL 


R. T 


OPEN 


R,T 



OFS 



ON 



OPTIONS 



ON RECORD 



0SM1 



0SM2 



OSM3 



OUTPUT 



R Replaces keyword MAIN 

R„T Marker indicating 

multiple assignment 
(Replaces PL/I' , • ) 

R Replaces the keyword 
NAME in the context 
Of ON NAME 

T Triple indicating 
indexing during 
optimization of DO 
loops 

Replaces the keyword 

NEWPAGE 

Replaces the keyword 
NOCHECK 

Replaces the keyword 
NOSNAP 

Triple which indi- 
cates the end of a 
NOSNAP list 

Null statement marker 



Replaces the keyword 
OPEN 

Triple indicating 
offset used in optim- 
ization of DO loops 



R, T Replaces the keyword 

ON 

R Replaces the keyword 
OPTIONS 

R Replaces the keyword 
RECORD in the context 

ON RECORD 

PS Indicates that the 
two byte operand 
field contains an 
index register 

PS Indicates that the 
two byte operand 
field contains a let- 
eral offset 

PS Indicates the pre- 
sence of a literal 
offset and an index 
register 

R Replaces keyword OUT- 
PUT 
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OVERFLOW 


R 


Replaces keyword 
OVERFLOW 


P 


AR,T 


Picture format item 


P' 


T 


Triple which indi- 
cates the end of a P 
format item 


PAGE 


R,T 


Picture format item 


PA.GESIZE 


R.„T 


Replaces the keyword 
PAGES IZE 



PCBS 

PFMT 
PICTURE 

PINS 

PLBS 



PLBS' 



PRECISIONl 



PRECISI0N2 



PRINT 



PRIORITY 



PSEUDO- 
VARIABLE 



PSEUDO- 
VARIABLE 



PSEUDO- 



PS 

PS 
R 

PS 

PS 



PS 



R,T 



Indicates the end of 
the complete prologue 
for a procedure block 



PICTURE format 
Replaces the 

PICTURE 



keyword 



Indicates the prolo- 
gue insertion point 

Indicates the start 
of the prologue for a 
procedure block which 
is common to all 
entry points 

Indicates the end of 
the prologue of a 
procedure block which 
is common to all 
entry points 

Indicates a precision 
which has been writ- 
ten in the source 
program as '(10)', 
which may be either 
fixed or float 

Indicates a precision 
which has been writ- 
ten in the source 
program as *(5 f 2)* 
which implies fixed 



Replaces 
PRINT 

Replaces the 
PRIORITY 



keyword 



keyword 



Marker which precedes 
the parenthesized 
argument list to a 
pseudo- variable 

Code byte or triple 
indicating the start 
of a pseudo- variable 
argument list 

Triple indicating the 



VARIABLE* 



PSLD 



PROC 



PROC 



PUT 



READ 



REAL 



RECORD 



RPL 



RPL' 



RWA 



end of 
variable 
list 



a pseudo- 
argument 



PS Indicates a pseudo- 
code instruction for 
use by the final 
assembly listing 
phase 

R,T PS Replaces the keyword 
PROCEDURE 

T. PS Triple which termi- 
nates the procedure 
block triples 

R, T Replaces the keyword 
PUT 

R, T Remote format state- 
ment marker 

R, T Replaces the keyword 
READ 

R Replaces the keyword 
REAL 

R Replaces the keyword 
RECORD 



RECURSIVE 


R 


Replaces 
RECURSIVE 


the keyword 


REENTRANT 


R 


Replaces 
REENTRANT 


the keyword 


REPLY 


R»T 


Replaces 
REPLY 


the keyword 


RETURN 


R»T 


Replaces 
marker 


statement 


REVERT 


R,T 


Replaces 
REVERT 


the keyword 


REWRITE 


R»T 


Replaces 

REWRITE 


the keyword 



PS 



Code byte or triple 
indicating the start 
of a format list 
replication factor 
expression 

Triple indicating the 
end of a format list 
replication factor 
expression 

Indication of an 
addressing vector for 
use by the register 
allocator when the 
number of symbolic 
registers in use 
exceeds the amount of 
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SECONDARY 



SECOND LEVEL R 
MARKER 



SELL 



SET 



SETS 



SIGNAL 



SIZE 



T.PS 



R,T 



SEQUENTIAL R 



R t T 



work space which has 
been allocated 

Replaces keyword SEC- 
ONDARY 

A code byte which 
immediately precedes 
all code bytes 
appearing in the sec- 
ond level table 

Code byte or triple 
which indicates that 
a temporary variable 
is no longer required 



Replaces the 
SET 



keyword 



Replaces the keyword 

SETS 

Replaces the keyword 
SEQUENTIAL 

Replaces the keyword 
SIGNAL 

Replaces the keyword 
SIZE 



DECIMAL REAL 



STOP 



STREAM 



STRING 



STRING* 



SUB 



R f T 



R,,T 



SUBSCRIPT R, T 



SUBSCRIPT' T 



a sterling 
constant 



decimal 



Replaces 
STOP 

Replaces 
STREAM 

Replaces 

STRING 



the keyword 

keyword 

the keyword 



Triple indicating the 
end of a string list 
used with list 
directed I/O 

Replaces the keyword 
SUB used in iSUB 
DEFINING marker 
preceding a BIT 

Marker which precedes 
the parenthesized 
subscript list of an 
array 

Triple indicating the 
end of a subscript 
list 



SKIP 



R,T 



Replaces the keyword 
SKIP 



SUBSCRIPT- R 
RANGE 



Replaces keyword SUB- 
SCRIPTRANGE 



SL 



SN 



SN2 



SN3 



R,T,PS 



R,T,PS 



R,T,PS 



PS 



SNAP* 



STATIC 



STERLING R 



Statement label mark- 
er. Precedes all 
labelled statements 

Statement number 
marker. Precedes all 
unlabelled statements 

Marker which precedes 
a second file state- 
ment (See Appendix 
D.8) 

Indicates the start 
of a second file 
statement which is 
concerned with ini- 
tializing array, or 
structure, or string 
dope vectors. Simi- 
lar to SN2 (Appendix 
D.8) except that 
there is no associat- 
ed entry 

Triple which indi- 
cates the end of a 
snap list 

Replaces the keyword 
STATIC 

Marker which precedes 



SYSTEM 



SYSTEM' 



TASK 



THEN 



TITLE 



TMPD 



TO 



TO' 



TRANSMIT 



UNBUFFERED 



R, T Replaces the keyword 
SYSTEM 

T Triple which indi- 
cates the end of a 
system list 

R,T Replaces the keyword 
TASK 

R» T Replaces the keyword 
THEN 

R.,T Replaces the keyword 

TITLE 

T Triple indicating a 
temporary expression 
result 

R,T Marker replacing TO 
in the iterative DO 
statement 

T Triple which indi- 
cates the end of a TO 
expression 

R Replaces the keyword 
TRANSMIT 

R Replaces the keyword 
UNBUFFERED 
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UNDEFINEDFILE R 



UNDERFLOW R 



Replaces the keyword 
UNDEFINEDFILE 



UNLOCK 



UPDATE 



USES 



USNG 



USSL 



R»T 



PS 



PS 



Replaces 
UNDERFLOW 

Replaces 
UNLOCK 

Replaces 
UPDATE 

Replaces 
USES 



keyword 



the keyword 



keyword 



the keyword 



Indicates the pre- 
sence of an assigned 
register 

Indicates a list of 
symbolic registers 
which need not be 



VARYING 



WHILE 



WHILE' 



WRITE 



ZERODIVIDE 



saved on branch and 
branch and link 
instructions 



R Replaces the keyword 
VARYING 

R, T Replaces the keyword 
WHILE 

T Triple which indi- 
cates the end of a 
WHILE expression 

R, T Replaces the keyword 

WRITE 

R, T Spacing format item 

R Replaces the keyword 
ZERODIVIDE 
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APPENDIX E; STORAGE REQUIREMENTS 



The (F) Compiler requires main storage 
for the following purposes : 

Compiler processing phases 

Print buffers 

Compiler control routines 

Dictionary area 

Text area 

Input/output buffers 

Input/Output routines (BSAM) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

During the read- in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 

During the rest of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 

The dictionary and text block size is 
chosen according to the amount of main 



storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 

The first table shows the relationship 
between the compiler requirements and the 
text and dictionary block sizes. The sec- 
ond table details the storage allocation in 
each environment. 



Compil er Requi rements and Dictionary / Text 
Block Relationship 



Environment 
A 


| Dictionary/Text | 
j Block Size j 
+ x 

1 IK | 


Compiler 
Requirements 

44K - 53K 


B 


1 2K | 


53K - 


70K 


C 


1 ^K | 


70K - 


102K 


D 


1 8K 1 


102K 


- 168K 


E 


1 16K | 


Over 


168K 



L X X J 



Storage Allocation 



OS Dynamic Storage 

TIOT 
SPIE 
LOAD 

OS Temporary Storage 

End of Volume 
Data Management 
Compiler Control 
Phase Area 
Text Area 
Dictionary Area 
Scratch Storage 
I/O Buffers 



| DURING READ- IN PHASE 



AFTER READ- IN PHASE 



J. 

j TOTALS 





EN\ 


fIRONMf 


]NT 






ENV] 


[RONN^ 


JT 




1 A 

+ 


B 



C 



D 



Ixl 1 


A 



B 



C 



D 



E | 
1 


| 228 


228 


228 


228 


228 


228 


228 


228 


228 


228 | 


| 32 


32 


\ 32 


32 


32 


32 


32 


32 


32 


32 | 


| 240 


240 


240 


240 


240 


240 


240 


240 


240 


240| 


j 976 


976 


976 


976 


976 


976 


976 


976 


976 


976| 


j 4950 


4950 


4950 


4950 


4950 


4950 


4950 


4950 


4950 


4950| 


|11900 


11900 


11900 


11900 


11900 


11900 


11900 


11900 


11900 


11900| 


116384 


16384 


16384 


16384 


16384 


12288 


12288 


12288 


12288 


12288| 


1 2048 


4096 


8192 


16384 


32768 


4096 


8192 


16384 


32768 


65536| 


| 2048 


4096^ 


8192 


16384 


32768 


4096 


8192 


16384 


32768 


65536| 


| 4096 


4096 


| 4096 


4096 


4096 


4096 


4096 


4096 


4096 


4096| 


| 1024 


1024 


1024 


1024 


1024 


1024 


1024 


1024 


1024 


1024| 



H 



|43926|48022|56214 

-X X X 



72598| 

X X 



105366 1 43926 I 52118 1 68502 1 101270 1 166806 

X X X X X 
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Initially, four text and four dictionary blocks, more main storage is allocated as 

blocks are allocated to the compiler (two blocks. This process continues until the 

each are allocated when only 44K bytes of spill point is reached (i.e., until all the 

storage are available to the compiler. main storage available to the compiler has 

This is then expanded to four of each at been used). If still more main storage is 

the end of the read-in phase). If the text required, the spill file (SYSOTl) is 

and/or dictionary expands to fill these opened, and blocks are written out. 
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APPENDIX F: COMMUNICATIONS REGION 



The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in this 
Appendix. 

Note: The use of the communications region 
during compile-time processing is 
described in Appendix J. 



TRANSFER VECTORS 



Hex- 




Offset 


Name 


8 


ZUPL 


c 


ZURD 


10 


ZUGC 


14 


ZUTXTC 


18 


ZURC 


1C 




20 


Z ABORT 


24 


ZLOADW 



28 



2C 



30 



ZDICAB 



ZDICRF 



ZUERR 



Description 

Print a line 

Read a card 

Get scratch storage 

Get text block 

Release scratch storage 



Dump and go to error 
message routines 

Load and return to cal- 
ler 

Make dictionary entry. 
Absolute address 
returned 

Make dictionary entry. 
Dictionary reference 
returned 

Make error message entry 



34 

38 

3C 
40 



68 

6C 
70 
74 
78 
80 



ZDRFAB Sonvert dictionary ref- 
erence to absolute 
address 



ZLOADX Load with overlay and 
return to caller 



REQEST Give a list of phase 
names required or not 
wanted for this compila- 
tion 



Release all named phases 

Release all named phases 
and pass to next phase 



Convert absolute address 
to text reference 

Convert text reference 
to absolute address 

Find next block in chain 

Change text block status 

Convert absolute address 
to dictionary reference 

Not aligned dictionary 
entry. Reference 
returned 

ZNALDB Not aligned dictionary 
entry. Absolute address 
returned 

ZEND Terminate job 

ZULF Write on load file 

ZUSP Write on punch 

ZUBW Write on backing store 

RLSCTLX Release all named phases 
and hand control to the 
next phase, after having 
loaded it with overlay 



44 


RELESE 


48 


RLSCTL 


4C 




50 


ZTXTRF 


52 


ZTXTAB 


58 


Z CHAIN 


5C 


Z ALTER 


60 


ZDABRF 


64 


ZNALRF 
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COMMUNIC ATIONS REGION 

These tables give the following information for each location of the communi- 
cations region: name of location; offset (i.e., relative address); use (i.e., 
stages of compilation during which the location is in use) ; and a description of 
the contents. Certain locations are used in one capacity during part of the 
compilation, and then re-used in a different capacity during another part of the 
compilation. In these cases, one location will have two table entries: details of 
alternative usage appear in the columns headed Name 2 # Use 2 , etc. 



*T T" 

| Offset (Dec.) | 



Name 



Use 



Description 



j SAVEO 





ALL 


PHASES | 


| SAVEl 


SAVEO+4 


ALL 


PHASES j 


| SAVE 2 


SAVEO +8 ETC. 


ALL 


PHASES j 


j SAVE15 


SAVEO+60 


ALL 


PHASES | 


j ZTV 


64 


ALL 


PHASES | 


| ZTRAN1 


68 


ALL 


PHASES | 


| ZTRAN2 


ZTRAN1+4 


ALL 


PHASES | 


j ZNXTD 


76 


ALL 


PHASES j 


| ZERRD 


80 


ALL 


PHASES | 


| ZERRS 


ZERRD+4 


ALL 


PHASES | 


j ZERRW 


ZERRD+8 


ALL 


PHASES | 


j ZERRC 


ZERRD+12 


ALL 


PHASES j 


1 ZDNXT 


ZERRD+16 


ALL 


PHASES | 


j ZSNXT 


ZDNXT+4 


ALL 


PHASES j 


j ZWNXT 


ZDNXT+8 


ALL 


PHASES | 


| ZCNXT 


ZDNXT+12 


ALL 


PHASES | 


| Z MY NAM 


112 


ALL 


PHASES | 




116 


Not 


used | 


| ZPROCH 


120 


ALL 


PHASES j 


| ZSTAT 


124 


ALL 


PHASES | 


j PARI 


128 


ALL 


PHASES j 


j PAR2 


PARI +4 ETC. 


ALL 


PHASES | 


j PAR8 


PAR1+28 


ALL 


PHASES | 


j FSTDIC 


160 


ALL 


PHASES J 


| ZDIC2 


FSTDIC+4 ETC. 


ALL 


PHASES | 


j ZDIC16 


FSTDIC+60 


ALL 


PHASES j 


| ERCODE 


224 


ALL 


PHASES | 


| MCSIZE 


228 


ALL 


PHASES j 


| CCCODE 


232 


ALL 


PHASES j 


| HDR 


236 


ALL 


PHASES | 


j TLR 


240 


ALL 


PHASES j 


| TRT 


244 


ALL 


PHASES | 


1 ARINT 


248 


ALL 


PHASES j 


| BR2 


252 


ALL 


PHASES | 


| STARTX 


256 


ALL 


PHASES j 


| DICTSZ 


260 


ALL 


PHASES | 


j TXTSZ 


264 


ALL 


PHASES | 


| RDSIZE 


268 


ALL 


PHASES j 


| INCOD 


272 


ALL 


PHASES | 


| ARMASK 


273 


ALL 


PHASES | 


| LOCK 


274 


ALL 


PHASES | 


| ZNXTLC 


276 


ALL 


PHASES | 


j ZSOR 


280 


ALL 


PHASES j 


j ZMAG 


282 


ALL 


PHASES | 


| ZCOMM 


304 


ALL 


PHASES j 



Register save area 

Register save area 

Register save area 

Register save area 

Control phase base 

External to internal translate table 

Internal to external translate table 

Next available dictionary location 

First locations of error chains 



Current ends of error chains 



Name of last phase entered 

Chain of created procedures 

Current statement number 

Parameter word 1 

Parameter word 2 

Parameter word 8 

Address of first dictionary block 

Dictionary block 2 

Dictionary block 16 

Error message codes 

M/CSIZE this run 

Control card requests 

Address of phase directory 

Timer last read 

Total run time 

Arithmetic interrupt 

Second base for control phase 

Start of text 

Dictionary block size 

Space available in text block 

SIZE of read area 

Interrupt code 

Arithmetic error mask 

Dictionary lock slot 

End of current text 

Input record source 

Input record margin 
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Dec. 1 


Use | 




Use 2 




j Name 


offspt i— 




Name 2 


L _ 




Description | 






r t i 




j Start | End | 




Start 


End 






























JZCALLC 


ZCOMM+ 0|Read 


in J BCD to J Start of CALL 
|Dict. Ref.| chain 










JZLABTB 


+ 4 | Read 


in | Initial | Start of label 
| j chain 










| ZALLCH 


+12 | Read 


in | ALLOCATE + | Start of 

| Attribute | ALLOCATE chain 










| ZDEFFL 


-i + 16 | Read 


in | Defined | Define flag 










[ZAWAFL 


j j Read 
1 1 


in | Attribute | ALLOCATE + 
| | Attribute 










|ZINTFL 


| | Read 


in |Dict. Ref . | INITIAL flag 










j ZDIMFL 


>1 byte j Read 


in j Initial | Dimension flag 










JZPICFL 


| |Read 


in |Pict Proc | PICTURE flag 










| ZONFL 


j J Read 


in |ON |ON flag 










|ZLIKFL 


j | Read 


in JLIKE |LIKE flag 










j ZDECFL 


J j Read 


in | INITIAL | DECLARE flag 










JZFLAG2 


+17 j Read 


in | Dictionary! Flag byte 










j Z FLAG 3 


+18 j Read 


in | Dictionary! Flag byte 










|ZNIFCT 


+19 j Read 


in J Translator! Max. nested 
| j IF count 










|ZIFCT 


+ 20 j Read 


in | Translator} IF count 


ZSYSOT 


Pseudo 
code 


Pseudo 
code 


Diet. Ref. | 
SYSOUT | 


| ZDOCT 


+22 | Read 


in | Translator! Max. nested 
j |DO count 










| ZBEGT 


+23 | Read 


in | Translator! Max. nested 
| | BEGIN 










| ZPROCT 


+24 | Read 


in J Translator! Max. nested 
PROCEDURE 










| ZHASH 


+28 j Dictionary | Dictionary | Start of hash 


ZINCL 


PC. 


End 


INCLUDE card | 






| J table 








pointer j 




+32 j Not used in first half 


ZEQTA3 


Final 


Assy. 


Assigned j 














offset table | 


j ZFATTB 


+36 j Dictionary j Declare | Start of fact- 


ZLCONS 


Strge 


Alloc 


Last constant j 






| pass 2 | ored attribute 


ZEOCS 






in STATIC. | 
End of STATIC j 


| ZCDIMC 


+40 | Dictionary | Pre- | Start constant 


ZSMREG 


Trans- 


Pseudo 


Current sym- j 






| translator! dimension 




lator 


code 


bolic registerj 


IZ2FILE 


+44 j Dictionary | End | Start of 














| | second file 










| ZDLFST 


+48 j Dictionary! Storage | Defined 


ZFSTEX 


Strge 


End 


First external J 






| allocator ( storage area 




alloc 




item j 


|ZDCBLD 


+52 | Dictionary | Dictionary (Dictionary 


ZPRSIZ 


Final 


Assy. 


Size of com- j 






| | build area 








piled program J 


| ZMPSTK 


+ 56 j Dictionary! Translator! Program map 


ZSICSZ 


Final 


Assy. 


STATIC | 






| J stack 








INTERNAL size | 


|ZUPIC 


+60 j Dictionary! Picture | Start of 


ZSTALC 


Final 


Assy. 


Storage loc- j 






| processor | picture chain 








ation counter j 


|ZPROCl 


+ 64 j j Dictionary! End | start of entry 














1 |type 1 chain 










| ZSTACH 


+68 | Dictionary! End | Start of STAT- 














| |IC chain (6) 










| ZVDIMC 


+74 j Dictionary! Translator! Start of vari- 














| | able dimension 














| | chain 










|Z CONCH 


+78 | Dictionary! ALLOCATE | Start of con- 














| | stants chain 










|ZDEFCH 


+80 | Dictionary! Dictionary! Chain of 


ZCITEM 


Pre 


End 


Chain of CON- | 






| | defined items 




trans. 




TROLLED items j 


JZLIKCH 


+82 j Dictionary! Dictionary! Chain of LIKE 


ZEQMAX 


Pseudo 


End 


Max. label | 






| ! items 




code 




number j 


| ZPOLCH 


+84 | Dictionary! Dictionary! Chain of POOL 














| J items 










L _ J 
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r t t t 

I Dec- | Use | 

Name | Offset j- T -J Description 

| | Start | End | 

ZDCOMlj ZCOMM+86 j Dictionary! Dictionary! Latest 

| j | | diet. ref. 

ZDC0M2| +90 | Dictionary! Dictionary! Flags for dic- 
I j j |tionary build 

j] 1 | interface 

1 J | | (8 bytes) 

-X x x x. 



_ T T T 1 

I Use 2 | 

Name 2 j- t ■! Description 2 

Start j End | 



l i x x x 1 j. x x J 
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APPENDIX G: SYSTEM GENERATION 



For full details of the system genera- 
tion process, see IBM System/360 Operating 
System: System Generation , Form C28-6554. 



During the system generation process, a 
control section named IEMAF is assembled 
(see Figure 12) containing a table consist- 
ing of four fixed-point values aligned on 
full- word boundaries, immediately followed 
by a bit string field that is twelve bytes 
in length. The four fixed-point values are 
related to the compiler options LINECNT, 
SIZE, SORMGIN (start), and SORMGIN (end) 
respectively. The first 44 bits in the 
string are used to specify the default 
status of the options. Bits 47 through 81 
in the string are used to specify if an 
option keyword is to be deleted or not. A 
"1" in the bit string means "yes" and a "0" 
means "no". The remaining 17 bits in the 
string are spare bits not currently in use. 
Figure 13 shows the bit identification 
table associated with the control section. 



IEMAF 



START 

DC F'60* 

DC F'45056' 

DC F*2' 

DC F'72' 

r 



DC 


B' | 


DC 


B' | 


DC 




DC 


r 


DC 


B' | 



00000000 00000000' 



00000000 00000000' 



DEFAULT 
SWITCHES 



00000000 0|0 ' DELETE 

J 

00000000 00000000* SWITCHES 



00000000 0|0 ' SPARE 

J. J 

DCB'|00000000 00000000' SWITCHES 

L 



Figure 12. The IEMAF Control Section 
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|Bit 


Parameter 

L J 


Bit 

L J 


Parameter | 

L J 


r — t t t i 


1 1 


ATR 


43 


COMP | 


1 2 


NOATR 


44 


NOCOMP | 


1 3 


BCD 


45 


Not used | 


1 4 


EBCDIC 


46 


Not used j 


1 5 


CHAR60 


47 


DELETE=ATR | 


1 6 


CHAR48 


48 


DELETE=NOATR | 


1 7 


DECK 


49 


DELETE=BCD | 


1 8 


NODECK 


50 


DELETE=EBCDIC j 


1 9 


EXTREF 


51 


DELETE=CHAR60 | 


1 10 


NOEXTREF 


52 


DELETE=CHAR48 | 


|11 


FLAGW 


53 


DELETE=DECK | 


1 12 


FLAGE 


54 


DELETE=NODECK | 


1 13 


FLAGS 


55 


DELETE=EXTREF | 


\m 


LIST 


56 


DELETE=NOEXTREF | 


1 15 


NOLIST 


57 


DELETE=FLAGW | 


1 16 


LOAD 


58 


DELETE= FLAGE j 


1 17 


NOLOAD 


59 


DELETE=FLAGS j 


j 18 


XREF 


60 


DELETE=LIST | 


j 19 


NOXREF 


61 


DELETE=NOLIST | 


j 20 


SOURCE 


62 


DELETE=LOAD I 


| 21 


NOSOURCE 


63 


DELETE=NOLOAD | 


| 22 


SOURCE2 


64 


DELETE=XREF | 


| 23 


NOSOURCE2 


65 


DELETE=NOXREF j 


|24 


OPT=0 


66 


DELETE=SOURCE j 


1 25 


OPT=l 


67 


DELETE=NOSOURCE | 


| 26 


OPT=2 


68 


DELETE=SOURCE2 | 


| 27 


OPT=3 


69 


DELETE=NOSOURCE2 | 


j 28 


OPT=4 


70 


DELETE=OPT | 


j 29 


OPT=5 


71 


DELETE=LINECNT | 


| 30 


OPT=6 


72 


DELETE=LINELNG | 


j 31 


OPT=7 


73 


DELETE=SIZE j 


| 32 


OPT=8 


74 


DELETE=SORMGIN | 


| 33 


OPT=9 


75 


DELETE=DUMP | 


| 34 


STMT 


76 


DELETE=STMT | 


| 35 


NOSTMT 


77 


DELETE=NOSTMT j 


| 36 


MACRO 


78 


DELETE=MACRO | 


| 37 


NOMACRO 


79 


DELETE=NOMACRO | 


| 38 


OPT=M30 


80 


DELETE=COMP | 


| 39 


OPT=M40 


81 


DELETE=NOCOMP j 


| 40 


OPT=M50 


82 


(Bits 82 | 


| 41 


OPT=M65 


- 


through 96 | 


| 42 


OPT=M75 


96 


not used) j 











Figure 13. Bit Identification Table 



Appendix G: System Generation 357 



APPENDIX H: CODE PRODUCED FOR PROLOGUES AND EPILOGUES 



The mechanism of dynamic storage manage- 
ment is described in the publication IBM 
System/360 Operating System PL/I Library 
Program Logic Manual., Form Z28-6591 

Part of the code required to implement 
the storage management is generated as 
prologue and epilogue code by the compiler. 
This Appendix contains annotated examples 
of prologues and epilogues for PROCEDURE, 
BEGIN, and ON blocks. 



PROLOGUES AND EPILOGUES 



Example in PL/I 

A: I: PROCEDURE (X,Y); 

DECLARE Y CONTROLLED; 



ON OVERFLOW C=0; 



B: BEGIN; 



END; 



AB:IJK: ENTRY (Y,Z) 



RETURN (EXPRESSION) 



END; 



BC 


15,6(0,15) 


DC 


ALK1) 


DC 


C*A' 


STM 


14,11,12(13) 


LA 


10,1+6(0,15) 


LA 


8,AP(0,10) 


BC 


15,12(0,10) 


BC 


15,6(0,15) 


DC 


ALK1) 


DC 


CI' 


STM 


14,11,12(13) 


LA 


10,1+6(0,15) 


LA 


8,IP(0,10) 



BRANCH ROUND BCD OF ENTRY POINT 

LENGTH OF BCD 

BCD OF ENTRY POINT 

SAVE STANDARD REGISTERS IN SAVE AREA 

CALLER'S DSA 

SET UP FIRST PROLOGUE BASE 

SET RETURN REGISTER 

BRANCH GET DSA 

BRANCH ROUND BCD OF ENTRY POINT 

LENGTH OF BCD 

BCD OF ENTRY POINT 

SAVE STANDARD REGISTERS IN SAVE AREA OF 

CALLER'S DSA 

SET UP FIRST PROLOGUE BASE 

SET RETURN REGISTER 
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11 „ STATIC (0,10) 





L 


15,32(0,11) 




L 


0,SIZDSA(0,10) 




BALR 


14,15 




LR 


14,13 




LA 


0,7(0,0) 




SR 


15,15 


LOOP 


A 


14,0(0,11) 




ST 


14,ADVEC+4(15,13) 


LA 




15,4(0,15) 




BCT 


0, LOOP (0,10) 




BCR 


15,8 


STATIC 


DC 


A( STATIC CONTROL 
SECTION) 




DC 


F'SIZE OF DSA* 


AP 


MVI 


SWITCH (13),X'X1* 


* 
* 
* 
IP 


BC 


15,COPRAM1(0,10) 


MVI 


SWITCH(13),X'X2' 


COP RAMI 


L 


14,0(0,1) 




ST 


14,X(0,13) 




L 


14.4(0,1) 




LA 


0,10(0,0) 




SR 


14,0 




LH 


14,0(0,14) 




ST 


14,Y(0,13) 




L 


14,8(0,1) 




ST 


14, TARGET (0,13) 


♦ 


L 


10,A...A(0,11) 




BAL 


8, COMMON (0,10) 


♦ 


BC 


15,AE...A(0, 10) 


COMMON 


BALR 


10,0 




LA 


9,ADDAREA(0,13) 


* 







ST 



9,ADVEC(0,13) 



SET UP STATIC DATA POINTER (ONLY IN 

EXTERNAL PROCEDURES AND ON PROLOGUES) 

LOAD GR15 WITH ENTRY POINT OF IHESADA 

GRO= SIZE OF DSA 

CALL IHESADA TO GET A DSA 

POINT GR14 AT NEW DSA 

SET LOOPING VALUE =7 

CLEAR INDEXING REGISTER 

BUMP GR14 BY 4096 

STORE GR14 IN ADDRESSING VECTOR 

BUMP INDEX REGISTER 

BRANCH ON RETURN REGISTER 

ADDRESS OF STATIC INTERNAL CONTROL SECTION 

(ONLY COMPILED FOR EXTERNAL AND ON PROLOGUES) 

INSERT RETURN (EXPRESSION) SWITCH AND 

BRANCH TO COPY OVER PARAMETERS. 

(ONLY COMPILED IF THERE IS A RETURN (EXP) 

AND THE ENTRY LABELS HAVE DIFFERENT DATA 

ATTRIBUTES) . 

INSERT RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 

STORE IN X IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 

POINT GR14 AT PSEUDO-REGISTER OFFSET OF 

ARGUMENT AND PICK IT UP 

STORE OFFSET IN Y IN DSA 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 FROM TRANSFER VECTOR SLOT 

FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 

BRANCH TO THE APPARENT ENTRY POINT 

FOR A 

SET UP COMMON PROLOGUE BASE 

SET GR9 TO POINT TO ADDRESSING AREA 

AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 



***** 
* 

* 

* 



* 
***** 



THE FOLLOWING CODE APPEARS 
ONLY IN THE CASE OF RECURSIVE PROCEDURES 



L 14,PR.. .A(12) 

ST 14,92(0,13) 

LA 14, PR. . ,A(12) 

SR 14,12 

ST 14,88(0,13) 



LOAD GR14 WITH THE CURRENT DISPLAY 

VALUE FOR A 

STORE IN DISPLAY UPDATE IN DSA 

GR14 = OFFSET OF DISPLAY PSEUDO- REGISTER 
STORE IN DISPLAY UPDATE IN DSA 



MVI 



INITIALIZE ON SLOTS (IF ANY) 

0(13), X'8F* IDENTIFY DSA. 



COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 
CONTROL SECTION TO REAL DOPE VECTORS IN DSA. (THERE IS ALWAYS A 
SKELETON FOR A REAL DOPE VECTOR), AND RELOCATE THE ADDRESSES WITH THE 
ADDRESS OF THE DSA FOR THOSE DOPE VECTORS REFERRING TO VARIABLES 
IN THE DSA. 



Appendix H: Code for Prologues and Epilogues 359 



FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 
PROCEDURE THE CODE BETWEEN THE LABELS VDA1 AND VDA2 IS 
GENERATED 



VDA1 



SR 
SR 



7,7 
0,0 



CLEAR STORAGE ACCUMULATOR AC1 
CLEAR SECONDARY DOPE VECTOR STORAGE 
ACCUMULATOR AC 2 



FOR EACH VARIABLE IN THE VDA, THE FOLLOWING CODE IS 
GENERATED (BETWEEN LABELS VAR1 AND VAR2) . 



VAR1 

* 
* 
* 
* 
* 
* 
VAR2 



* 
VDA2 



EVALUATE EXTENT EXPRESSIONS (DIMENSIONS AND STRING LENGTHS) AND 

STORE RESULTS IN DOPE VECTOR IN DSA. 

ALIGN ACCUMULATOR AC1 ON CORRECT BOUNDARY FOR VARIABLE 

BUMP ACCUMULATOR AC2 BY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 

IS DIMENSIONED AND VARYING) . 

RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 

VDA. 

BUMP ACCUMULATOR AC1 BY SIZE OF STORAGE REQUIRED FOR VARIABLE 

AR 0,7 ADD AC1 AND AC2 

L 15,36(0,11) LOAD GR15 WITH ENTRY POINT IHESADB 

BALR 14,15 GET VDA 

1,8(0,1) BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 

7,1 POINT GR7 AT FIRST SECONDARY DOPE VECTOR. 

14, DV. .VAR(0,13) FOR EACH VARIABLE IN REGION, RELOCATE 

14,1 ADDRESS IN DOPE VECTOR. 

14,DV..VAR(0, 13) 
FOR EACH DIMENSIONED VARYING ITEM IN REGION, INITIALIZE 
SECONDARY DOPE VECTORS. 

SET UP PROCEDURE BASE 

CODE (IF ANY) TO SET UP SOME ADDRESSING MECHANISMS IN E 

ADVANCE FOR USE IN PROCEDURE 

RETURN FROM COMMON PROLOGUE. 

BRANCH ROUND BCD OF ENTRY POINT 



SAVE REGISTERS IN CALLER 1 S SAVE AREA 
SET UP FIRST PROLOGUE BASE 

BRANCH AND LINK TO GET DSA AND TO SET 

UP ADDRESSING VECTOR. 

SET UP RETURN(EXP) SWITCH IF THERE IS A 

RETURN (EXP) AND DATA ATTRIBUTES OF 

ENTRY LABELS DIFFERENT. 

BRANCH TO COPY PARAMETERS 

BRANCH ROUND BCD OF ENTRY POINT 



LA 

AR 

L 

AR 

ST 



LA 



10,PROCBASE 





BCR 


15,8 




CNOP 


0,4 


AB 


BC 


15,8(0,15) 




DC 


ALK2) 




DC 


CAB* 




STM 


14,11,12(13) 




L 


10,PROBAS(0,15) 




LA 


10,6(0,10) 


* 
* 


BAL 


8,12(0,10) 


MVI 


SWITCH ( 13 ),X'X3* 


* 


BC 


15,COPRAM2(0,8) 


IJK 


BC 


15,8(0,15) 




DC 


ALIO) 




DC 


CIJK' 




L 


10,PROBAS(0,15) 




LA 


10,6(0,10) 


* 


BAL 


8,12(0,10) 


MVI 


SWITCH ( 13 ),X'X4' 




BC 


15,COPRAM2(0,8) 


P ROB AS 


DC 


A(I) 


COPRAM2 


L 


14,0(0,1) 




LA 


0,10(0,0) 




SR 


14,0 




LH 


14,0(0,14) 




ST 


14, Y (0,13) 




L 


14,4(0,1) 



SET UP FIRST PROLOGUE BASE 

BRANCH TO GET DSA AND SET UP 
ADDRESSING VECTOR- 
SET RETURN (EXP) SWITCH 
BRANCH TO COPY PARAMETERS 

PICK UP FIRST ARGUMENT ADDRESS 



PICK UP PSEUDO- REGISTER OFFSET OF 

ARGUMENT AND STORE IN DSA. 

PICK UP ADDRESS OF SECOND ARGUMENT 
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ST 14, Z (0,13) 

L 14,8(0,1) 

ST 14, TARGET (0,13) 

L 10,A.-.A(0»11) 

BAL 8, COMMON (0,10) 

BC 15,AE...AB(0,10) 



AND STORE IN Z 

PICK UP ADDRESS OF TAR3ET FIELD 

AND STORE IN DSA 

LOAD GR10 WITH ADDRESS OF FIRST BYTE 

OF PROCEDURE 

BRANCH AND LINK TO COMMON PROLOGUE 

BRANCH TO APPARENT ENTRY POINT AB 



THIS IS THE APPARENT ENTRY POINT OF A. 



THE FOLLOWING IS AN ON BLOCK PROLOGUE WHICH IS COMPILED FOR ALL 
ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 



STM 14,11,12(13) 
LR 10,15 



SAVE REGISTERS 
SET PROLOGUE BASE 



LOOP 



COMMON 
* 

* 

ONSTART 



SET UP STATIC INTERNAL DATA POINTER 
LOAD GR15 WITH ADDRESS OF IHESADA 
LOAD GR0 WITH SIZE OF DSA 
CALL IHESADA TO GET A DSA 



L 11, STATIC (0,10) 

L 15,32(0,11) 

L 0,SIZDSA(0,10) 

BALR 14,15 

LR 14,13 

LA 0,7(0,0) 

SR 15,15 

A 14,0(0,11) 

ST 14, ADVEC+4 (15,13) 

LA 15,4(0,15) 

BCT 0, LOOP (0,10) 

BC 15, COMMON (0,10) 

DC F'SIZE OF DSA' 

DC A (STATIC INTERNAL CONTROL SECTION) 

BALR 10, 

CODE IS GENERATED HERE FOLLOWING SAME PATTERN AS FOR 
A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION- 
LA 10, ONSTART 



SET UP ADDRESSING VECTOR IN 
DSA 



BRANCH TO INITIALIZE DSA 



EPILOGUE FOR AN ON BLOCK 
L 15,IHESAFA(0,11) 
BALR 14,15 



LOAD GR15 WITH ENTRY POINT TO EPILOGUE 
ROUTINE AND BRANCH AND LINK TO IT 



PROLOGUE FOR A BEGIN BLOCK 



LOOP 



LA 


14, BEND 


BALR 


15,0 


CNOP 


0,4 


STM 


14,11, 12(13) 


BALR 


9,0 


L 


15,32(0,11) 


L 


0,SIZDSA(0, 9) 


BALR 


14,15 


LR 


14,13 


LA 


0,7(0,0) 


SR 


15,15 


A 


14,0(0,11) 


ST 


14, ADVEC+4 (15, 13) 


LA 


15,4(0,15) 


BCT 


0,LOOP(0,9) 


BC 


15, COMMON (0,9) 


DC 


F'SIZE OF DSA* 


LA 


9,ADDAREA(0,13) 


ST 


9,ADVEC(0,13) 



CODE IS GENERATED HERE THE 
EXCEPT THAT A CODE OF X'GF' 



SET UP RETURN REGISTER 
SET UP ENTRY POINT ADDRESS 

SAVE REGISTERS IN CONTAINING BLOCK'S DSA 

SET UP PROLOGUE BASE 

LOAD GR15 WITH ENTRY POINT TO IHESADA 

GET A DSA 



SET UP ADDRESSING VECTOR FOR DSA 



SET GRG TO POINT TO ADDRESSING AREA 
AT END OF DSA AND STORE IN ADDRESSING 
VECTOR 
SAME AS FOR A PROCEDURE PROLOGUE 
IS MOVED TO THE FIRST BYTE OF THE 
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BEND 



DSA; GR10 IS NOT RESET; AND THE BCR 15,8 IS NOT GENERATED. 
EPILOGUE OF A BEGIN BLOCK 

L 15,IHESAFA LOAD GR15 WITH ENTRY POINT OF 

BALR 14-15 EPILOGUING ROUTINE AND CALL IT 



RETURN (EXP) STATEMENT EXAMINES THE LOCATION 'SWITCH' IN THE DSA 

SET BY THE PROLOGUE TO DETERMINE THE CONVERSION REQUIRED ON 

THE EXPRESSION. IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 

THE TARGET FIELD FOR WHICH THE LOCATION ' TARGET* , IN THE DSA, 

POINTS TO EITHER ITS DOPE VECTOR (IN THE CASE OF A STRING) 

OR THE STORAGE. ROUTINE IHESAFA IS THEN INVOKED. 

END STATEMENT (WHICH IS THE SAME AS A RETURN STATEMENT) 

L 15, IHESAFA 

BALR 14,15 
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APPENDIX I: DIAGNOSTIC MESSAGES 



The messages produced by the PL/I (F) 
Compiler are explained in the publication 
IBM Sy stem/360 Operating System, PL/I (F) 
Program mer" s Guide . Form C 28- 6 59 4. The 
following table associates a message number 
with the particular phase and module in 
which the corresponding message is generat- 
ed. 



Message 
Number 

IEM0002I 
IEM0003I 
IEM0004I 
IEM0005I 
IEM0006I 
IEM0007I 
IEM0008I 
IEM0009I 
IEM0010I 
IEM0011I 
IEM0012I 
IEM0013I 
IEM0014I 
IEM0015I 
IEM0016I 
IEM0017I 
IEM0018I 
IEM0019I 
IEM0020I 
IEM0021I 
IEM0022I 
IEM0023I 
IEM002UI 
IEM0025I 
IEM0026I 
IEM0027I 
IEM0028I 
IEM0029I 
IEM0031I 
IEM0032I 
IEM0033I 
IEM0035I 
IEM0037I 
IEM0038I 
IEM0039I 
IEM0040I 
IEM0041I 
IEM0043I 
IEMOOUUI 
IEM0045I 
IEM0046I 
IEM0047I 
IEM0048I 
IEM0049I 
IEM0050I 
IEM0051I 
IEM0052I 
IEM0053I 
IEM0054I 
IEM0055I 



Logical Phas e 

Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



Module 

CA 

CA, CP 

CA 

CA, CL 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CG 

CA,CL f CT 
CC 

cc 

CC 
CC 

cc 

CC 

CC 

CC 
CC 

CC 
CC 

CG 

CL,CP 

CL f CP 

CO 

CO 

CO 

CP 



IEM0056I 
IEM0057I 
IEM0058I 
IEM0059I 
IEM0060I 
IEM0061I 
IEM0063I 
IEM0064I 
IEM0066I 
IEM0067I 
IEM0068I 
IEM0069I 
IEM0070I 
IEM0071I 
IEM0072I 
IEM0074I 
IEM0075I 
IEM0076I 
IEM0077I 
IEM0078I 
IEM0080I 
IEM0081I 
IEM0082I 
IEM0083I 
IEM0084I 
IEM0085I 
IEM0090I 
IEM009UI 
IEM0096I 
IEM0097I 
IEM0098I 
IEM0099I 
IEM0100I 
IEM0101I 
IEM0102I 
IEM0103I 
IEM0104I 
IEM0105I 
IEM0106I 
IEM0107I 
IEM0108I 
IEM0109I 
IEM0110I 
IEM0111I 
IEM0112I 
IEM0113I 
IEM011UI 
IEM0115I 
IEM0116I 
IEM0128I 
IEM0129I 
IEM0130I 
IEM0131I 
IEM0132I 
IEM0133I 
IEM0134I 
IEM0138I 
IEM0139I 
IEM0142I 
IEM0143I 
IEM014UI 
IEM0145I 



Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



CC 
CC 
CP 
CP 
CP 
CO 
CC 
CG 
CL 

C3 

CG 

CG 

CG 

CG 

CG 

C3 

CG 

CG 

CG 

CG 

C3 

CG 

C3 

CI 

CI 

CI 

C3 # CI 

CI 

CI 

CI 

CM 

CI 

CI 

CC 

CC.CG 

CI,,CV 

CI 

CI 

CG,CI 

CI 

CI 

CI 

CG.CM 

CI 

CL 

CI 

CO 

CL 

CL 

CO 

CO 

CO 

CP 

CP 
CO 
CO 

CO 
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IEM0146I 
IEM0149I 
IEM0150I 
IEM0151I 
IEM0152I 
IEM0158I 
IEM0159I 
IEM0160I 
IEM0162I 
IEM0163I 
IEM0164I 
IEM0165I 
IEM0166I 
IEM0167I 
IEM0168I 
IEM0169I 
IEM0170I 
IEM0171I 
IEM0172I 
IEM0177I 
IEM0178I 
IEM0179I 
IEM0180I 
IEM0181I 
IEM018 2I 

IEM018 3I 
IEM0184I 
IEM0185I 
IEM0187I 
IEM0188I 
IEM0189I 
IEM0190I 
IEM0191I 
IEM0193I 
IEM0194I 
IEM0195I 
IEM0196I 
IEM0197I 
IEM0198I 
IEM0201I 
IEM0202I 
IEM0205I 
IEM0206I 
IEM0207I 
IEM0208I 
IEM0209I 
IEM0210I 
IEM0211I 
IEM0212I 
IEM0213I 
IEM0214I 
IEM0216I 
IEM0217I 
IEM0218I 
IEM0220I 
IEM0221I 
IEM0222I 
IEM0223I 
IEM0224I 
IEM0225I 
IEM0226I 
IEM0227I 
IEM0228I 
IEM0229I 
IEM0230I 
IEM0231I 
IEM0232I 



Read in 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read in 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read in 
Read In 
Read In 
Read In 
Read In 

Read In 
Read In 
Read In 
Read In 
Read in 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read in 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



CO 


IEM0233I 


Read In 


CL f CM 


IEM0234I 


Read In 


CL 


IEM0235I 


Read In 


CO 


IEM0236I 


Read In 


CO 


IEM0237I 


Read In 


CO 


IEM0240I 


Read In 


CO 


IEM0241I 


Read In 




IEM0242I 


Read In 




IEM0243I 


Read In 


CT 


IEM0244I 


Read In 


CS, CT 


IEM0245I 


Read In 




IEM0254I 


Read In 


CL 


IEM0 255I 


Read In 




IEM0512I 


Dictionary 




IEM0513I 


Dictionary 




IEM051UI 


Dictionary 




IEM0 515I 


Dictionary 




IEM0516I 


Dictionary 


CL 


IEM0 517I 


Dictionary 




IEM0 518I 


Dictionary 




IEM0519I 


Dictionary 




IEM0520I 


Dictionary 


CT 


IEM0521I 


Dictionary 


CL 


IEM0 522I 


Dictionary 


CL,CS, 


IEM0523I 


Dictionary 


CT,CV 


IEM0524I 


Dictionary 




IEM0525I 


Dictionary 




IEM0527I 


Dictionary 


CT 


IEM0528I 


Dictionary 


CT 


IEM0529I 


Dictionary 




IEM0530I 


Dictionary 




IEM0531I 


Dictionary 




IEM0 532I 


Dictionary 


CT 


IEM0533I 


Dictionary 


CT 


IEM0534I 


Dictionary 


CT 


IEM0535I 


Dictionary 


CT 


IEM0 536I 


Dictionary 




IEM0537I 


Dictionary 




IEM0 538I 


Dictionary 


CT 


IEM0 539I 


Dictionary 




IEM0 540I 


Dictionary 


CL 


IEM0 541I 


Dictionary 




IEM0542I 


Dictionary 




IEM0 543I 


Dictionary 


CG 


IEM0544I 


Dictionary 


CG 


IEM0 545I 


Dictionary 


CC 


IEM0546I 


Dictionary 




IEM0547I 


Dictionary 


CL 


IEM0548I 


Dictionary 


CP 


IEM0549I 


Dictionary 


CP 


IEM0 550I 


Dictionary 


CP 


IEM0551I 


Dictionary 


CP 


IEM0552I 


Dictionary 


CP 


IEM0553I 


Dictionary 


CL 


IEM0554I 


Dictionary 


CT 


IEM0555I 


Dictionary 


CT 


IEM0 556I 


Dictionary 




IEM0557I 


Dictionary 


CT 


IEM0 558I 


Dictionary 


CT 


IEM0559I 


Dictionary 


CT 


IEM0560I 


Dictionary 


CT 


IEM0561I 


Dictionary 


CT 


IEM0562I 


Dictionary 


CT 


IEM0 563I 


Dictionary 


CT 


IEM0564I 


Dictionary 


CS,CT 


IEM0 565I 


Dictionary 


CT 


IEM0566I 


Dictionary 


CT 


IEM0567I 


Dictionary 



cv 
cs 

CS 

cs 
cv 
cv 
cv 
cv 
cv 
cv 

CC 

CG 

EH 

EG 

EG 

EG 

EG 

EG 

EG 

EG 

EG 

EG 

EG 

EG 

EH 

EI 

EJ 

EH,EI,EJ 

EI 

EI 

EI 

EI 

EI 

EI 

EI 

EI 

EI 

EJ 

EJ 

EJ 

EJ 

EJ 

EL,EK,EM 

EL,EK,EM 

EL,EK,EM 

EL, EK, EM 

EL t EK, EM 

EL W EK,EM 

EL # EK,EM 

EL,EK,EM 

EK, EL, EM 

EL„EK,EM 

EL, EK, EM 

EL,EK # EM 

EL, EK, EM 

EL„EK,EM 

EL,EK,EM 

EL,EK,EM 

EL,EK,EM 

EL f EK,EM 

EL f EK,EM 

EK,EL,EM 

EK,EL,EM 

EK. EL, EM 

EK,EL,EM 

EK,EL,EM 

EP 



36U 



IEM0568I 
IEM0569I 
IEM0570I 
IEM0571I 
IEM0572I 
IEM0573I 
IEM0589I 
IEM0590I 
IEM0591I 
IEM0592I 
IEM0593I 
IEM0594I 
IEM0595I 
IEM0596I 
IEM0597I 
IEM0598I 
IEM0607I 
IEM0608I 
IEM0609I 
IEM0610I 
IEM0611I 
IEM0623I 
IEM062UI 
IEM0625I 
IEM0626I 
IEM0627I 
IEM0628I 
IEM0629I 
IEM0630I 
IEM0631I 
IEM0632I 
IEM0633I 
IEM0634I 
IEM0636I 
IEM0637I 
IEM0638I 
IEM0640I 
IEM0641I 
IEM0642I 
IEM0643I 
IEM0644I 
IEM0652I 
IEM0653I 
IEM0654I 
IEM0655I 
IEM0656I 
IEM0657I 
IEM0658I 
IEM0673I 
IEM0674I 
IEM0675I 
IEM0676I 
IEM0677I 
IEM0683I 
IEM0684I 
IEM0685I 
IEM0686I 
IEM0687I 
IEM0688I 
IEM0689I 
IEM0690I 
IEM0691I 
IEM0692I 
IEM0693I 
IEM0694I 
IEM0695I 
IEM0696I 
IEM0697I 



Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 



EP 

EP 

EP 

EK 

EL 

EL 

EW 

EW 

EW 

EW 

EW 

EW 

EW 

EW 

EW 

EW 

FV,FW 

FV, FW 

FV,FW 

FV f FW 

FV,FW 

FV f FW 

FV,FW 

FV, FW 

FV,FW 

FV f FW 

FV,FW 

FV,FW 

FV,FW 

FV,FW 

FV f FW 

EY 

EY 

EY 

EY 

EY 

EY 

EY 

EY 

EY 

EY 

FE 

FE 

FE 

FE 

FE 

FE 

FE 

FE 

FF 

FF 

FF 

FE 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 



IEM0699I 


Dictionary 


FI 




IEM0700I 


Dictionary 


FI 




IEM0701I 


Dictionary 


FI 




IEM0702I 


Dictionary 


FI 




IEM0703I 


Dictionary 


FI 




IEM0704I 


Dictionary 


FI 




IEM0708I 


Dictionary 


FK 




IEM0709I 


Dictionary 


FK 




IEM0710I 


Dictionary 


FK 




IEM0711I 


Dictionary 


FK 




IEM0712I 


Dictionary 


FK 




IEM0715I 


Dictionary 


EJ 




IEM0718I 


Dictionary 


FO 




IEM0719I 


Dictionary 


FO 




IEM0720I 


Dictionary 


FO 




IEM0721I 


Dictionary 


FO 




IEM0722I 


Dictionary 


FO 




IEM0723I 


Dictionary 


FO 




IEM0724I 


Dictionary 


FO 




IEM0725I 


Dictionary 


FO 




IEM0726I 


Dictionary 


FO 




IEM0727I 


Dictionary 


FO 




IEM0728I 


Dictionary 


FO 




IEM0729I 


Dictionary 


FO 




IEM0730I 


Dictionary 


FQ 




IEM0731I 


Dictionary 


FQ 




IEM0732I 


Dictionary 


FQ 




IEM0733I 


Dictionary 


FQ 




IEM0734I 


Dictionary 


FQ 




IEM0735I 


Dictionary 


FQ 




IEM0736I 


Dictionary 


FQ 




IEM0737I 


Dictionary 


FQ 




IEM0738I 


Dictionary 


FQ 




IEM0739I 


Dictionary 


FQ 




IEM0740I 


Dictionary 


FQ 




IEM0741I 


Dictionary 


FQ 




IEM0742I 


Dictionary 


FQ 




IEM0743I 


Dictionary 


FQ 




IEM07U4I 


Dictionary 


FQ 




IEM07U5I 


Dictionary 


FQ 




IEM0746I 


Dictionary 


FQ 




IEM0747I 


Dictionary 


FQ 




IEM0748I 


Dictionary 


FQ 




IEM0749I 


Dictionary 


FQ 




IEM0750I 


Dictionary 


FQ 




IEM0751I 


Dictionary 


FQ 




IEM0752I 


Dictionary 


FQ 




IEM0754I 


Dictionary 


FQ 




IEM0755I 


Dictionary 


FQ 




IEM0756I 


Dictionary 


FQ 




IEM0758I 


Dictionary 


FQ 




IEM0759I 


Dictionary 


FQ 




IEM0760I 


Dictionary 


FQ 




IEM0761I 


Dictionary 


FQ 




IEM0762I 


Dictionary 


FQ 




IEM0769I 


Pretranslator 


GA 




IEM0770I 


Pretranslator 






IEM0771I 


Pretranslator 


Gh 




IEM0785I 


Pretranslator 


GK 




IEM0786I 


Pretranslator 


GK 




IEM0787I 


Pretranslator 


GK 




IEM0788I 


Pretranslator 


GK 




IEM0789I 


Pretranslator 


GK 




IEM0790I 


Pretranslator 


GK 




IEM0791I 


Pretranslator 


GK 




IEM0792I 


Pretranslator 


GP»GQ g 


GR 


IEM0793I 


Pretranslator 


GP , GQ f 


GR 


IEM079UI 


Pretranslator 


GP W GQ W 


GR 
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IEM0795I 


Pretranslator 


GP ( 


GQ # GR 


IEM1029I 


Translator 


IEM0796I 


Pretranslator 


GP, 


GQ,GR 


IEM10U0I 


Translator 


IEM0797I 


Pretranslator 


GP, 


GQ # GR 


IEM1051I 


Translator 


IEM0798I 


Pretranslator 


GP, 


GQ,GR 


IEM1056I 


Translator 


IEM0799I 


Pretranslator 


GP, 


GQ f GR 


IEM1057I 


Translator 


IEM0800I 


Pretranslator 


GP, 


GQ,GR 


IEM1058I 


Translator 


IEM0801I 


Pretranslator 


GP, 


GQ,GR 


IEM1059I 


Translator 


IEM0802I 


Pretranslator 


GP, 


r GQ,GR 


IEM1060I 


Translator 


IEM0803I 


Pretranslator 


GP, 


GQ,GR 


IEM1061I 


Translator 


IEM0804I 


Pretranslator 


GP, 


GQ f GR 


IEM1062I 


Translator 


IEM0805I 


Pret rans lator 


GP, 


GQ r GR 


IEM1063I 


Translator 


IEM0806I 


Pretranslator 


GP, 


GQ,GR 


IEM1064I 


Translator 


IEM0807I 


Pretranslator 


GP, 


GQ,GR 


IEM1065I 


Translator 


IEM0816I 


Pretranslator 


GU, 


GV 


IEM1066I 


Translator 


IEM0817I 


Pretranslator 


GU, 


GV 


IEM1067I 


Translator 


IEM0818I 


Pretranslator 


GU, 


GV 


IEM1068I 


Translator 


IEM0819I 


Pretranslator 


GU, 


GV 


IEM1071I 


Translator 


IEM0820I 


Pretranslator 


GU, 


GV 


IEM1072I 


Translator 


IEM0821I 


Pretranslator 


GU, 


GV 


IEM1073I 


Translator 


IEM0823I 


Pretranslator 


GU, 


GV 


IEM1074I 


Translator 


IEM0824I 


Pretranslator 


GU 




IEM1088I 


Aggregates 


IEM0825I 


Pretrans lator 


GU, 


GV 


IEM1089I 


Aggregates 


IEM0832I 


Pr etrans lator 


HF, 


HG 


IEM1090I 


Aggregates 


IEM0833I 


Pretranslator 


HF, 


HG 


IEM110 4I 


Aggregates 


IEM08 34I 


Pretranslator 


HF, 


HG 


IEM1105I 


Aggregates 


IEM0835I 


Pretranslator 


HF, 


HG 


IEM1106I 


Aggregates 


IEM0836I 


Pretranslator 


HF, 


HG 


IEM1107I 


Aggregates 


IEM0837I 


Pretranslator 


HF, 


HG 


IEM1108I 


Aggregates 


IEM0848I 


Pretranslator 


HF, 


HG 


IEM1110I 


Aggregates 


IEM0849I 


Pretranslator 


HF, 


HG 


IEM1111I 


Aggregates 


IEM0850I 


Pretrans lator 


HF, 


HG 


IEM1112I 


Aggregates 


IEM0851I 


Pretranslator 


HF, 


HG 


IEM1113I 


Aggregates 


IEM0852I 


Pretranslator 


HF, 


HG 


IEM1114I 


Aggregates 


IEM0853I 


Pretrans lator 


HF, 


HG 


IEM1115I 


Aggregates 


IEM0864I 


Pretranslator 


HK, 


HL 


IEM1120I 


Aggregates 


IEM0865I 


Pret rans lator 


HK, 


HL 


IEM1121I 


Aggregates 


IEM0866I 


Pretrans la tor 


HK, 


HL 


IEM1122I 


Aggregates 


IEM0867I 


Pretrans lator 


HK, 


HL 


IEM1123I 


Pseudo-code 


IEM0868I 


Pretranslator 


HK, 


HL 


IEM1124I 


Pseudo-code 


IEM0869I 


Pretrans lator 


HK, 


HL 


IEM1200I 


Pseudo-code 


IEM0870I 


Pretranslator 


HK, 


HL 


IEM1569I 


Pseudo-code 


IEM0871I 


Pretrans lator 


HK, 


HL 


IEM1570I 


Pseudo-code 


IEM0872I 


Pretranslator 


HK, 


HL 


IEM1571I 


Pseudo-code 


IEM0873I 


Pretranslator 


HK, 


HL 


IEM1572I 


Pseudo-code 


IEM0874I 


Pretranslator 


HK, 


HL 


IEM1574I 


Pseudo-code 


IEM0875I 


Pretranslator 


HK, 


r HL 


IEM1575I 


Pseudo-code 


IEM0876I 


Pretranslator 


HK, 


HL 


IEM1600I 


Pseudo-code 


IEM0877I 


Pretranslator 


HK, 


HL 


IEM1601I 


Pseudo-code 


IEM0878I 


Pretranslator 


HK, 


HL 


IEM1602I 


Pseudo-code 


IEM0879I 


Pretranslator 


HK« 


HL 


IEM1603I 


Pseudo-code 


IEM0880I 


Pretrans lator 


HK, 


HL 


IEM1604I 


Pseudo-code 


IEM0881I 


Pretranslator 


HK, 


HL 


IEM1605I 


Pseudo-code 


IEM0882I 


Pretranslator 


HK 




IEM1606I 


Pseudo-code 


IEM0896I 


Pretrans lator 


HP, 


HQ 


IEM1607I 


Pseudo-code 


IEM0897I 


Pretranslator 


HP, 


HQ 


IEM1608I 


Pseudo-code 


IEM0898I 


Pretrans lator 


HP, 


HQ 


IEM1609I 


Pseudo-code 


IEM0899I 


Pretranslator 


HP, 


HQ 


IEM1610I 


Pseudo-code 


IEM0900I 


Pretranslator 


HP, 


HQ 


IEM1611I 


Pseudo-code 


IEM0901I 


Pretranslator 


HP, 


HQ 


IEM1612I 


Pseudo-code 


IEM0902I 


Pretranslator 


HP, 


HQ 


IEM1613I 


Pseudo-code 


IEM0903I 


Pretranslator 


HP, 


HQ 


IEM1614I 


Pseudo-code 


IEM0906I 


Pretrans lator 


HP, 


HQ 


IEM1617I 


Pseudo-code 


IEM0907I 


Pretrans lator 


HP, 


HQ 


IEM1618I 


Pseudo-code 


IEM1024I 


Translator 


IA 




IEM1619I 


Pseudo-code 


IEM1025I 


Translator 


IA 




IEM1620I 


Pseudo-code 


IEM1026I 


Translator 


IA 




IEM1621I 


Pseudo-code 


IEM1027I 


Translator 


IA 




IEM1622I 


Pseudo-code 


IEM1028I 


Translator 


IA 




IEM1623I 


Pseudo-code 



IA 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

JK 

JK 

JK 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

LD 

LB 

LA 

LG-ON 

LG 

LG 

L3 

LG 

L3 

LS , LT, LU 

LS 

LS„LT,LU 

LS,LT,LU 

LS,LT f LU 

LS W LT # LU 

LS„LT W LU 

LS # LT*LU 

LS W LT„LU 

LS,LT,LU 

LW 

LW 

Ltf 

LS t LT„LU 

LW 

MB 

MB 

MB 

MB 

MB 

MB 

MB 
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IEM162UI 


Pseudo- 


-code 


IEM1625I 


Pseudo- 


-code 


IEM1630I 


Pseudo- 


-code 


IEM1631I 


Pseudo- 


-code 


IEM1632I 


Pseudo- 


-code 


IEM1640I 


Pseudo- 


-code 


IEM16U1I 


Pseudo- 


-code 


IEM1642I 


Pseudo- 


-code 


IEM1643I 


pseudo- 


-code 


IEM1644I 


Pseudo- 


-code 


IEM1645I 


Pseudo- 


-code 


IEM1648I 


Pseudo- 


-code 


IEM1649I 


Pseudo- 


-code 


IEM1650I 


Pseudo- 


-code 


IEM1651I 


Pseudo- 


-code 


IEM1652I 


Pseudo- 


-code 


IEM1653I 


Pseudo- 


-code 


IEM1654I 


Pseudo- 


-code 


IEM1655I 


pseudo- 


-code 


IEM1670I 


Pseudo- 


-code 


IEM1671I 


Pseudo- 


-code 


IEM1680I 


Pseudo- 


-code 


IEM1687I 


Pseudo- 


-code 


IEM1688I 


Pseudo- 


-code 


IEM1689I 


Pseudo- 


-code 


IEM1691I 


Pseudo- 


-code 


IEM1692I 


Pseudo- 


-code 


IEM1693I 


Pseudo- 


-code 


IEM1750I 


pseudo- 


-code 


IEM1751I 


Pseudo- 


-code 


IEM1793I 


Pseudo- 


■code 


IEM1794I 


Pseudo- 


-code 


IEM1795I 


Pseudo- 


-code 


IEM1800I 


Pseudo- 


-code 


IEM1801I 


Pseudo- 


-code 


IEM1802I 


Pseudo- 


-code 


IEM1803I 


Pseudo- 


-code 


IEM1804I 


Pseudo- 


-code 


IEM1805I 


Pseudo- 


-code 


IEM1806I 


Pseudo- 1 


-code 


IEM1807I 


Pseudo- 


-code 


IEM180 8I 


Pseudo- 


-code 


IEM1809I 


Pseudo- 


-code 


IEM1810I 


Pseudo- 


-code 


IEM1811I 


Pseudo- 


■code 


IEM1812I 


Pseudo- 


-code 


IEM1813I 


Pseudo- 


-code 


IEM1814I 


Pseudo- 


-code 


IEM1815I 


Pseudo- 


-code 


IEM1816I 


Pseudo- 


-code 


IEM1817I 


Pseudo- 


-code 


IEM1818I 


Pseudo- 


-code 


IEM1819I 


Pseudo- 


■code 


IEM1820I 


Pseudo- 


■code 


IEM1821I 


Pseudo- 


-code 


IEM1822I 


Pseudo- 


•code 


IEM1823I 


Pseudo- 


■code 


IEM1824I 


Pseudo- 


•code 


IEM1825I 


pseudo- 


■code 


IEM1826I 


Pseudo- 


■code 


IEM1827I 


Pseudo- 


■code 


IEM1828I 


Pseudo- 


•code 


IEM1832I 


Pseudo- 


-code 


IEM1833I 


Pseudo- 


-code 


IEM183UI 


Pseudo- 


-code 


IEM1835I 


Pseudo- 


■code 


IEM1836I 


Pseudo- 


■code 


IEM1837I 


Pseudo- 


-code 



MB 




IEM1838I 


MB 




IEM1839I 


MG, 


MH 


IEM1840I 


MI, 


MJ 


IEM18U1I 


MI, 


MJ 


IEM18U3I 


MM, 


MN 


IEM1844I 


MM, 


MN 


IEM1845I 


MM, 


MN 


IEM18 46I 


MM, 


MN 


IEM1847I 


MM, 


MN 


IEM1848I 


MM, 


MN 


IEM1860I 


MM, 


MN 


IEM1861I 


MM, 


MN 


IEM1862I 


MM, 


MN 


IEM1870I 


MM, 


MN 


IEM1871I 


MM, 


MN 


IEM1872I 


MM, 


MN 


IEM1873I 


MM, 


MN 


IEM1874I 


MN 




IEM1875I 


MP 




IEM2304I 


MP 




IEM2305I 


MS 




IEM2352I 


MS 




IEM2700I 


MS 




IEM2701I 


MS 




IEM2702I 


MS 




IEM2703I 


MS 




IEM2704I 


MS 




IEM2705I 


MS 




IEM2706I 


MS 




IEM2707I 


OE 




IEM2708I 


OE 




IEM2709I 


OE 




IEM2710I 


OS 




IEM2711I 


OS 




IEM2712I 


OS 




IEM2817I 


OS 




IEM2818I 


OS 




IEM2819I 


OS 




IEM2820I 


OS 




IEM2821I 


OS 




IEM2822I 


OS 




IEM2823I 


OS 




IEM2824I 


OS 




IEM2825I 


OS 




IEM2826I 


OS 




IEM2833I 


OS 




IEM2834I 


OS 




IEM2835I 


OS 




IEM2836I 


NJ 




IEM2837I 


NJ 




IEM2849I 


NJ 




IEM2852I 


NJ 




IEM2853I 


NJ 




IEM2^54I 


NJ 




IEM2855I 


NJ 




IEM2865I 


NJ 




IEM2866I 


NM 




IEM2867I 


NG 




IEM2868I 


NG 




IEM2881I 


NG 




IEM2882I 


NG 




IEM2883I 


NM 




IEM2884I 


NM 




IEM2885I 


NM 




IEM2886I 


NM 




IEM2887I 


NM 




IEM2888I 


NM 




IEM2897I 



Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NM 

Pseudo-code NU 

Pseudo-code N(J 

Pseudo-code NU 

Pseudo-code NU 

Pseudo-code NU 

Pseudo-code NU 

Pseudo-code NU 

Pseudo-code NU 

Ps eudo- code NV 

Storage Allocation PD 

Storage Allocation PD 

Storage Allocation PD 

Register Allocation RF, 

Register Allocation RF„ 

Register Allocation RF, 

Register Allocation RF„ 

Register Allocation RF„ 

Register Allocation RF„ 

Register Allocation RF, 

Register Allocation RF, 

Register Allocation RF, 

Register Allocation RF, 

Register Allocation RF„ 

Register Allocation RF, 

Register Allocation RF, 

Final Assembly TA 

Final Assembly TA 

Final Assembly TA 

Final Assembly TA 

Final Assembly TA 

Final Assembly TA 

Final Assembly TA 

Final Assembly TA 

Final Assembly TA 

Final Assembly TA 

Final Assembly TF 

Final Assembly TF 

Final Assembly TF 

Final Assembly TF 

Final Assembly TF 

Final Assembly TJ 

Final Assembly TJ 

Final Assembly TJ 

Final Assembly TJ 

Final Assembly TJ 

Final Assembly TO 

Final Assembly TO 

Final Assembly TO 

Final Assembly TO 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly UA 



RG, RH 
RG,RH 
RG, RH 
RG,RH 
RG,RH 
RG # RH 
RG,RH 
RG,RH 
RG,RH 
RG,RH 
RG, RH 
RG, RH 
RG, RH 
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IEM2898I Final Assembly 

IEM2899I Final Assembly 

IEM2900I Final Assembly 

IEM2913I Final Assembly 

IEM3584I 48 Character 
Preprocessor 

IEM3840I Compiler Control 

IEM3841I Compiler Control 

IEM3842I Compiler Control 

IEM3843I Compiler Control 

IEM3844I Compiler Control 

IEM38U5I Compiler Control 

IEM3846I Compiler Control 

IEM3847I Compiler Control 

IEM3848I Compiler Control 

IEM3849I Compiler Control 

IEM3850I Compiler Control 

IEM3851I Compiler Control 

IEM3852I Compiler Control 

IEM3853I Compiler Control 

IEM3854I Compiler Control 

IEM3855I Compiler Control 

IEM3856I Compiler Control 

IEM3857I Compiler Control 

IEM3858I Compiler Control 

IEM3859I Compiler Control 

IEM3860I Compiler Control 

IEM3861I Compiler Control 

IEM3862I Compiler Control 

IEM3863I Compiler Control 

IEM386UI Compiler Control 

IEM3865I Compiler Control 

IEM3872I Compiler Control 

IEM387 3I Compiler Control 

IEM3874I Compiler Control 

IEM3875I Compiler Control 

IEM3876I Compiler Control 

IEM3877I Compiler Control 

IEM3878I Compiler Control 

IEM3880I Compiler Control 

IEM3888I Compiler Control 

IEM3889I Compiler Control 

IEM3890I Compiler Control 

IEM3891I Compiler Control 

IEM3892I Compiler Control 

IEM3893I Compiler Control 

IEM3894I Compiler Control 

IEM3895I Compiler Control 

IEM3896I Compiler Control 

IEM3897I Compiler Control 

IEM3898I Compiler Control 

IEM3904I Compiler Control 

IEM3905I Compiler Control 

IEM3906I Compiler Control 

IEM3907I Compiler Control 

IEM3908I Compiler Control 

IEM4106I Compile-time Processor 

IEM4109I Compile-time processor 

IEMU112I Compile-time Processor 

IEMU115I Compile-time Processor 

IEM4118I Compile-time Processor 

IEM4121I Compile-time Processor 

IEM4124I Compile-time Processor 

IEM4130I Compile-time Processor 

IEM4133I Compile-time Processor 

IEM4134I Compile-time Processor 

IEM4136I Compile-time Processor 

IEM4139I Compile-time processor 



OA 


IEM4142I 


UC 


IEM4143I 


UC 


IEM4148I 


OF 


IEM4150I 


BX 


IEM4151I 




IEM4152I 


AA 


IEM4153I 


AA 


IEM4154I 


AA 


IEM4157I 


AA 


IEM4160I 


AA 


IEM4163I 


AA 


IEM4166I 


AA 


IEM4169I 


AA 


IEM4172I 


AA 


IEM4175I 


AA 


IEM4176I 


AA 


IEM4178I 


AA 


IEM4184I 


AA 


IEM4187I 


AA 


IEM4188I 


AA 


IEM4190I 


AA 


IEM4193I 


AA 


IEM4196I 


AA 


IEM4199I 


AA 


IEM4202I 


AA 


IEM4205I 


AA 


IEM4208I 


AA 


IEM4211I 


AA 


IEM4212I 


AA 


IEM4214I 


AA 


IEM4217I 


AA 


IEM4220I 


AA 


IEM4223I 


AA 


IEM4226I 


AA 


IEM4229I 


AA 


IEM4232I 


AA 


IEM4235I 


AA 


IEM4238I 


AA 


IEM4241I 


AA 


IEM4244I 


AA 


IEM4247I 


AA 


IEM4248I 


AA 


IEM4250I 


AA 


IEM4253I 


AA 


IEM4254I 


AA 


IEM4256I 


AA 


IEM4259I 


AA 


IEM4262I 


AA 


IEM4265I 


AA 


IEM4271I 


AA 


IEM4277I 


AA 


IEM4280I 


AA 


IEM4283I 


AA 


IEM4286I 


AA 


IEM4289I 


AA 


IEM4292I 


AS 


IEM4 295I 


AS 


IEM4296I 


AS 


IEM4298I 


AS 


IEM4299I 


AS 


IEM4301I 


AS,BC, BG 


IEM4304I 


BC, BG 


IEM4307I 


BG 


IEM4 310I 


BC 


IEM4313I 


BC 


IEM4319I 


BC 


IEM4322I 


BC 


IEM4325I 



Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 



Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 



368 



IEM4328I 


Compile-time 


Processor 


BC 


IEM4448I 


Compile-time 


Processor 


BG 


IEM4331I 


Compile-time 


Processor 


BC 


IEM4451I 


Compile-time 


Processor 


B3 


IEM43321 


Compile-time 


Processor 


BC 


IEM4452I 


Compile-time 


Processor 


BG 


IEM4334I 


Compile-time 


Processor 


BC 


IEM4454I 


Compile-time 


Processor 


B3 


IEM4337I 


Compile-time 


Processor 


BC 


IEM4457I 


Compile-time 


Processor 


BG 


IEM4340I 


Compile-time 


Processor 


BC 


IEM4460I 


Compile-time 


Processor 


BG 


IEM43U3I 


Compile-time 


Processor 


BC 


IEMU463I 


Compile-time 


Processor 


B3 


IEM4346I 


Compile-time 


Processor 


BC 


IEM4469I 


Compile-time 


Processor 


BG 


IEM4349I 


Compile-time 


Processor 


BC 


IEM4472I 


Compile-time 


Processor 


BG 


IEM4352I 


Compile-time 


Processor 


BC 


IEM4473I 


Compile-time 


Processor 


BG 


IEM4355I 


Compile-time 


Processor 


BC 


IEM4475I 


Compile-time 


Processor 


BG 


IEM4358I 


Compile-time 


Processor 


BC 


IEM4478I 


Compile-time 


Processor 


BG 


IEM4361I 


Compile-time 


Processor 


BC 


IEMU481I 


Compile-time 


Processor 


BG 


IEM4364I 


Compile-time 


Processor 


BC 


IEM4484I 


Compile-time 


Processor 


BG 


IEM4367I 


Compile-time 


Processor 


BC 


IEM4499I 


Compile-time 


Processor 


BG 


IEMU370I 


Compile-time 


Processor 


BC 


IEM4502I 


Compile-time 


Processor 


BG 


IEM4373I 


Compile-time 


Processor 


BC 


IEM4504I 


Compile-time 


Processor 


BG 


IEM4376I 


Compile-time 


Processor 


BC 


IEM4505I 


Compile-time 


Processor 


BG 


IEM4379I 


Compile-time 


Processor 


BC 


IEM4506I 


Compile-time 


Processor 


BG 


IEM4382I 


Compile-time 


Processor 


BC 


IEM4508I 


Compile-time 


Processor 


BG 


IEM4283I 


Compile-time 


Processor 


BC 


IEM4511I 


Compile-time 


Processor 


BC 


IEM4391I 


Compile-time 


Processor 


BC 


IEM4514I 


Compile-time 


Processor 


BG 


IEM4394I 


Compile-time 


Processor 


BC 


IEM4517I 


Compile-time 


Processor 


BG 


IEM4397I 


Compile-time 


Processor 


BC 


IEMU520I 


Compile-time 


Processor 


BG 


IEM4400I 


Compile-time 


Processor 


BC 


IEM4523I 


Compile-time 


Processor 


BG 


IEM4403I 


Compile-time 


Processor 


BC 


IEM4526I 


Compile-time 


Processor 


AS 


IEM4406I 


Compile-time 


Processor 


BC 


IEM4529I 


Compile-time 


Processor 


BC,BG 


IEM4407I 


Compile-time 


Processor 


BC 


IEM4532I 


Compile-time 


Processor 


AS 


IEM4409I 


Compile-time 


Processor 


BC 


IEM4535I 


Compile-time 


Processor 


AS 


IEM4412I 


Compile-time 


Processor 


BC 


IEM4538I 


Compile-time 


Processor 


BC 


IEM4415I 


Compile-time 


Processor 


BC 


IEM4547I 


Compile-time 


Processor 


AV 


IEM4421I 


Compile-time 


Processor 


BC 


IEM4550I 


Compile-time 


Processor 


BG 


IEM4433I 


Compile-time 


Processor 


BG 


IEM4553I 


Compile-time 


Processor 


B3 


IEM4436I 


Compile-time 


Processor 


BG 


IEM4559I 


Compile-time 


Processor 


BG 


IEM4439I 


Compile-time 


Processor 


BG 


IEM4562I 


Compile-time 


Processor 


BG 
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APPENDIX J: COMPILE-TIME PROCESSOR 



This appendix describes, for the 
Compile-time Processor Logical Phase, the 
internal formats of text and tables, com- 
munication region use. Operating System 
interfaces and compiler control interfaces. 



1. INTERNAL FORMATS OF TEXT 



The internal format of text used by the 
compile-time processor is EBCDIC. As 
source input is read into storage, non- 
macro text is moved directly into text 
blocks after translation to internal 
format. Encoded compile-time statements 
and line numbers are also placed in text 
blocks. 



F ormat of a Dictionar y Entry 



The compile-time processor uses a set of 
chained dictionary entries. Hashing tech- 
niques are used to add an item to the 
dictionary or to search for an entry. A 
compile-time processor dictionary item is a 
variable-length item with the following 
skeletal format: 



The fields defined in this skeleton 
the following meaning and usage: 

LENGTH: The length of the EBCDIC name, 
the item has no name (e.g. 
constant) this field is zero. 



have 



If 
a 



declared- Each procedure is 
assigned a unique number. The 
identifiers in the non-procedural 
text are given the procedure number 
1. The built-in function SUBSTR is 
given the procedure number 0. 

HASH- CHAIN-POINTER: The dictionary address 
of the next item on this hash 
chain. This address is zero if no 
item follows. 



TYPE: 



A byte which gives the attributes of 
the entry. The bits (if on) have 
been assigned the following mean- 
ings: 



BIT 



MEANING 



1 


fixed 


2 


character 


3 


bit 


H 


entry 


5 


label 


6 


INCLUDE identifier 


7 


iterative DO 


8 


constant 



PROC NO. : The number assigned to the proce- 
dure in which the identifier was 



VALUE/ VALUE- POINTER: If the item is fixed, 
this contains the value proper 
stored as a five-digit packed deci- 
mal number. Otherwise it contains 
a pointer to the value stored in 
IVBs. The definition of value for 
the various kinds of entries is 
given below. For a fixed macro 
variable, this contains the valtie. 
For a character variable, it con- 
tains a pointer to IVBs containing 
the value. For a procedure, it 
points to the text-block location 
of the code. For a label, it 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 

Word n 



Byte 1 Byte 2 Byte 3 Byte 4 

r t t t 

LENGTH j PROC NO. j HASH- CHAIN- POINTER J 
J. + J. ., 

TYPE j VALUE/VALUE-POINTER j 



FLAGS | COUNT 

X 

POINTERS/P ARM-TYPES 
EBCDIC NAME > 



H 



■> EBCDIC NAME 
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points to the text-block location 
of the label. If references to the 
label are found before the label is 
discovered, the value pointer tem- 
porarily points to a chain of IVBs 
with a description of every GOTO 
transferring to this label. This 
information is processed and dis- 
carded when the label is found. 
For an INCLUDE identifier,, it 
points to the beginning of the 
included text. 



pointer to the immediately embrac- 
ing INCLUDE is kept. 

During Phase I, word 4 is used for 
labels and simple variables to hold 
two pointers. These form a bi- 
directional chain of all labels and 
variables having the same procedure 
number which have been used but not 
defined. This information is used 
only is Phase I and can therefore 
be overlaid. 



FLAGS: This set of bits provides additional 
information about the use of the 
item. They are used as follows: 



BIT 



MEANING 



EBCDIC NAME: A variable length field, 
containing the EBCDIC name of the 
item. If the item has no name, 
this field is not included. 



1 special entry bit 

2 DECLARE encountered 
BC) 

3 procedure body encountered 
(Phase BC) 

4 parameter 

5 used to indicate a procedure f 
called by Phase II scan. 

6 DECLARE encountered (Phase 
BG) 

7 unused 

8 ACTIVATE bit 

9 "in- use" bit 

10 "indirect reference" bit 

11 "undefined" bit for multiple 
declarations 

12 left-hand side (LHS bit) 

This field occupies a half-word. 

COUNT: For a procedure entry, this field 
contains a count of the number of 
parameters for the procedure. For 
INCLUDE identifier it is zero ini- 
tially, and subsequently contains 
the initial line number assigned to 
the included text. 

POINTERS/PARAM-TYPES: For a procedure, the 
field contains an encoding of the 
type information for each formal 
parameter. Two bits are reserved 
for each parameter. One indicates 
fixed; the other indicates charac- 
ter. If neither bit is set, this 
indicates that the entry declara- 
tion did not specify attributes for 
the parameters. 

For a label, word 4 contains two 
pointers to dictionary items. One 
points to the dictionary entry for 
the immediately embracing iterative 
DO. The second half-word contains 
a pointer to the dictionary entry 
for the immediately embracing 
INCLUDE. This provides a method of 
checking the legality of GOTOs. 
For an INCLUDE identifier, only the 



(Phase Format of an Identifier Value Block (IVB) 



To hold character and bit string values, 
some text blocks are organised into sub- 
blocks of 32 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in the 
preceding IVB- This copy is made to facil- 
itate backup. The last four bytes consist 
of a condition code of one byte followed by 
a 3- byte chain pointer. A set of these 
sub-blocks, chained together, is used to 
hold a value. The condition byte is zero 
for all except the last sub-block in a 
value. In this last condition code byte 
the first bit is set to 1 to indicate 
"end-of -value. " The remaining bits are a 
count of the significant bytes in the 
sub-block. There is a maximum of 27 signi- 
ficant bytes in an IVB. 

The chain address is used to point to 
the next sub-block in a value. The meaning 
of the chain address in the last sub-block 
in a chain depends on how the chain is 
being used. 

These small chained sub-blocks are 
referred to as "identifier value blocks," 
or IVBs. 

Text blocks are allocated to hold IVBs 
as the need arises. Those IVBs not cur- 
rently in use are chained together into an 
availability chain and are re-used when 
needed. 

An example of a character string value 
held in IVBs is shown. The character 
string, which starts with AB and ends with 
CD, is 28 characters long. Two IVBs are 
thus required to hold the value. The 
string AB. . . C is put into the first IVB, 
while the last character, D, is put into 
another IVB. The condition code byte of 
the first IVB is zero. The second condi- 
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r t T" i r t t 1 

| ?AB ... C j 0- | >|CD///// | 10000001 j ? | 

U X J.-J L X JL J 

< 28 > 1 3 < 28 > < 1 > <-3-> 



tion code byte is 10000001. The first "1" 
indicates end-of-value, while 0000001 is a 
count of the significant characters in the 
IVB. 

Besides holding character- string values, 
IVBs are used in many places by the 
compile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite length. 
These uses are noted elsewhere. 



BIT MEANING 

1 FIXED 

2 CHARACTER 

3 BIT 

4 Indirect reference (i.e., points 
to a dictionary entry) 

5 Character string value does not 
"belong" to the stack and should 
not be erased when stack is 
popped. (Shared with Phase BG 
scan. ) 



Instruction Codes for the Compile-time 
Processor 



Bits 6-8 are unused by the interpreter. 
They are reserved for Phase BG scan. 



Compile-time statements are handled in 
two parts. During Phase BC, each statement 
is recognized and syntax checked. An 
encoded form of the statement is then 
placed into the current text block. During 
Phase BG these encoded statements are exe- 
cuted by an interpreter. 

All expressions are encoded in postfix 
Polish. A stack is used during Phase II to 
hold all operands. Conversions are done in 
Phase BG. 

Thus the expression (A+B)||C, for exam- 
ple, is turned into 

A B + C| | 

To be more explicit, it is turned into the 
instructions 



PUSH 


A; 


PUSH 


B 


ADD; 




PUSH 


C; 


CONCAT 



The PUSH operator pushes its operand 
onto the phase II stack. This stack con- 
sists of 150 full words in scratch storage. 
The first byte of each call is a status 
byte; the last three bytes hold the value 
if the item is FIXED, a pointer if the item 
is CHARACTER or BIT, or an indirect ref- 
erence to a dictionary entry if the indi- 
rect bit is on. 



The bits of the status byte 
following meaning if set to one: 



have the 



All instructions generated by the Phase 
BC code generators begin with an operation 
byte. Depending on the operation, it may 
be followed by zero or more bytes of 
information which are intrinsically part of 
the instruction. Each instruction may have 
either or both of the characteristics STACK 
and FIXED. The definition of these charac- 
teristics follows: 



1. STACK. These instruction consist only 
of the one- byte operator. They take 
their operands, if any, from the Phase 
II stack. These operators correspond 
in general to the PL/I arithmetic and 
string operators. Depending on wheth- 
er they are unary or binary, they use 
the top one or two items on the stack. 
Before these operands are used, they 
are converted, if necessary, in_ place 
to the required type. After the items 
are used they are popped from the 
stack. The result of the operation is 
pushed onto the stack. 



The conversion, the popping, and the 
pushing are all implied for a stack 
operator. 

2. FIXED LENGTH- These operations are 
followed by a fixed number of bytes — 
usually two. These bytes, which usu- 
ally refer to a dictionary entry, 
serve as the operand (s) of the 
instruction. 

The table below shows the operations 
that are to encode macro instructions. The 
operand description indicates only the gen- 
eral operand type for a variable-length 
item. The count byte is omitted. 
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r t- 

I MNEMONIC I 



h 



TYPE 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 
FIXED 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

FIXED 

FIXED 

FIXED 

FIXED 

STACK 
FIXED 

STACK 
FIXED 

FIXED 

FIXED 

FIXED 

FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 



OPERAND DESCRIPTION 



FUNCTION 



ADD 

SOB 

MUL 

DIV 

UNMIN 

UNPLS 

ASSIGN 1 

NOT 

AND 

OR 

CONCAT 

EQU 2 

GT 2 

LT 2 

INC 

ABORT 

TRA 

TRAC 

TRAF 3 

INV 5 

TRAI** 

PUSH 

PUSHI 

UPDT 

ENTM 

RTNS 

ENB 

DSB 

DCL 

NOPD 



BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
UNARY; OPERAND, RESULT FIXED 
UNARY; OPERAND, RESULT FIXED 
UNARY; B CONVERTED TO TYPE OF A 

UNARY; OPERAND, RESULT BIT 
BINARY; OPERANDS, RESULT BIT 
BINARY; OPERANDS, RESULT BIT 
BINARY; OPERANDS, RESULT CHAR 
BINARY; OPERANDS, RESULT VARY 
BINARY; OPERANDS, RESULT VARY 
BINARY; OPERANDS, RESULT VARY 
Two-byte dictionary reference 
One-byte code 

Two-byte dictionary reference 
Two-byte dictionary reference 
Two- byte dictionary reference 

Two- byte dictionary reference and 
a one- byte argument count 

two two-byte dictionary references 

Two-byte dictionary reference 

Two-byte dictionary reference 

Three-byte line count 

no operand 

no operand 

Two-byte dictionary references 

Two-byte dictionary references 

Dictionary reference 

Dictionary reference 



A+B 

A-B 

A*B 

A/B 

-B 

+ B 

A=B (assignment) 

lB 

A£B 

A|B 

A||B 

A=B (equality) 

A>B 

A<B 

INCLUDE A 

ABORT processing 

Transfer to label 

Transfer to label 

Transfer to label 

if top of stack false. 

Invokes the procedure 

Transfer out of INCLUDE 

Push A onto stack 

Push address of A 
onto stack 

Put line count into LINCNT 

Enter interpreter 

Return to Phase II scan 

ACTIVATE A 

DEACTIVATE A 

DECLARE A 

No-ops the DECLARE, once 
executed 



Appendix J: Compile-time Processor 373 



r t t T 1 

I MNEMONIC I TYPE | OPERAND DESCRIPTION | FUNCTION j 

j. + 1 + 4 

CVT 6 | FIXED | Dictionary reference | Convert to RETURNS 

j j j attribute 

I I I 
RETN" 7 | FIXED (Dictionary reference | Return from procedure A 
|. x i j. -J 

^The ASSIGN operator does not push a result. The expression result is found on 
the PDS and is popped; the dictionary reference for the left hand side is the 
single argument. 

2 0perand conversion for EQU, GT, and LT is as specified in IBM System/ 360 
Operat ing Syste m: PL/I Language Spe cifications , Form C28-6571. 

3 The TRAF uses and pops the top operand on the stack. It is treated as a bit 
string for conditional transfers. 

**This handles GOTOs out of included text. At this point CLNUP is performed. The 
arguments are (a) the dictionary entry for the label to which control is to pass; 
and (b) the dictionary entry for the current INCLUDE. 

5 The arguments for the invocation are contained on the stack. The dictionary 
reference is to the procedure entry. 

6 This converts the top of the stack to the attributes specified in the RETURNS 
attribute for the procedure A. 

7 This terminates the invocation of procedure A and converts the value on the top 
of the stack to the attribute specified on the PROCEDURE statement. 
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2. COMMUNICATIONS REGION USE 



The region from offset to offset 304 
(ZCOMM) is used as a general communications 
region throughout the compiler, including 



the compile-time processor. The region 
from ZCOMM to ZCOMM+463 is also used by the 
compiler; however, during the compile-time 
processor phase, this region is used exclu- 
sively by the compile-time processing- The 
details of this usage are shown below. 



Name 



Dec. 
Offset 



Length 



Contents 



STATUS 



ZCOMM 



STA2 



ZCOMM+1 



SUBSTRDR 


ZCOMM+2 


2 


TOKPTR 


ZCOMM+4 


4 


INCPTR 


ZCOMM+8 


4 


INBUF 


ZCOMM+1 2 


4 


OUTBUF 


ZCOMM+1 6 


4 


PDSPTR 


ZCOMM+20 


4 


ENDBUF 


ZCOMM+2 4 


4 


WHERE 


ZCOMM+2 8 


4 


IVBPTR 


ZCOMM+32 


4 


LINCNT 


ZCOMM+36 


4 


TEMPTR 


ZCOMM+40 


2 


DCENTY 


ZCOMM+4 2 


2 


CURINC 


ZCOMM+44 


2 


CURDO 


ZCOMM+4 6 


2 


PROCNO 


ZCOMM+48 


1 


NXTPC 


ZCOMM+49 


1 


DPHCNT 


ZCOMM+50 


2 


CODE 


ZCOMM+52 


1 


LENGTH 


ZCOMM+54 


2 



Byte 1 : Bit not used 

1 PROCSW — processing macro procedure 
Note : 2 FINDBIT — SRHDIC has found dictionary item 
Condition 3 ERSW — diagnostic produced in Phase II 
Settings 4 EFSW — end of file encountered (input) 
"1" = set 5 LEVBIT — processing IVB 
"0" = off 6 INCSW — processing included text 

7 PH2SW — in Phase II 

Byte 2: Bit OLDINC — processing already listed INCLUDE 

1 SKPSW — indicates entry to END from PRCSCN 

2 NOPERCENTSW — look ahead for % completed 

3 SYSOPN — SYSLIB DCB is open 

7 ARG — indicates that Phase II is looking for 
arguments of activated procedure 

Holds dictionary reference of level SUBSTR entry 

Address of character being scanned, text reference or 
absolute, right justified 

Save area for TOKPTR 

Absolute address of input buffer,, right justified 

Absolute address of output buffer, right justified 

Absolute address to top of pushdown stack, right justified 

Absolute address to last significant character in input 
buffer, right justified 

Address of next available byte in output buffer, text 
reference or absolute, right justified 

Text reference to next free IVB, right justified 

Holds current line number, right justified 

Dictionary reference to top of "in-use" temporary stack 

Dictionary reference for chaining dictionary items 

Dictionary reference to INCLUDE entry being processed 

Dictionary reference to DO entry being processed 

Current procedure number, right justified 

Next available procedure number, right justified 

Current depth count 

Code for token type 

Number of significant characters in TOKBuF, right justified 



Appendix J: Compile-time Processor 375 



MXDPTH 


ZCOMM+56 


2 


INDEX 


ZCOMM+58 


2 


KTTR 


ZCOMM+60 


2 


GRSAVE 


ZCOMM+64 


4 


NEWIVB 


ZCOMM+68 


4 


VALUE 


ZCOMM+72 


4 


PREINB 


ZCOMM+76 


4 


BOFSRT 


ZCOMM+80 


4 


INIVB 


ZCOMM+84 


1 


OUTIVB 


zcoiyyyi+85 


1 


TXTBLK 


ZCOMM+86 


1 


INVBAB 


ZCOMM+88 


4 


OUTIVB AB 


ZCOMM+92 


4 


TXTBLK AB 


ZCOMM+96 


4 


MTABC 


ZCOMM+100 


4 


TXTEST 


ZCOMM+104 


4 


BUF1 


ZCOMM+108 


4 


BUF2 


ZCOMM+112 


4 


LIBDCB 


ZCOMM+116 


4 


USRDCB 


ZCOMM+120 


4 


MAXLCT 


ZCOMM+124 


4 


PRCWHR 


ZCOMM+128 


4 


DCENTYAB 


ZCOMM+132 


4 


SCHK 


ZCOMM+136 


4 


PROCCL 


ZCOMM+140 


2 


OUTERCL 


ZCOMM+142 


2 


PROCCLDR 


ZCOMM+144 


2 


OUTRCLDR 


ZCOMM+146 


2 


DECIDR 


ZCOMM+148 


4 


CORPRC 


ZCOMM+152 


4 


TOKBUF 


ZCOMM+164 


32 


HASTB 


ZCOMM+300 


128 


CONSCH 


ZCOMM+428 


2 


SPECCH 


ZCOMM+430 


2 



Integer value of depth of replacement, right justified 

Hash table index for dictionary routines 

"Type" byte for dictionary routines 

Save area for GRG 

Pointer to IVB chain to be freed or obtained 

Type and value/value pointer for dictionary entries 

Pointer to header information for INBUF 

Pointer to left margin in INBUF 

Current busy block number 

Current busy block number 

Current busy block number 

Current block used in absolute address calculation 

Current block used in absolute address calculation 

Current block used in absolute address calculation 

Address of translate table for TOKSCN and FINDPC 

Length of text block adjusted for chain address 

Pointer to first INCLUDE buffer 

Pointer to second INCLUDE buffer 

Pointer to DCB for SYSLIB data set 

Pointer to DCB for user data sets 

Maximum line count used so far 

Pointer to next byte in which to put procedure text 

Absolute address of dictionary entry 

Pointer to level 1 SUBSTR entry 

Dictionary reference of procedure check list 

Dictionary reference of outer check list 

Dictionary reference for PROCCL cell 

Dictionary reference for OUTERCL cell 

Dictionary reference of dictionary entry for DECIMAL 1 

Pointer to current procedure entry on PDS 

32-byte buffer, characters inserted left justified 

64 two-byte dictionary references to hash chains for named 
items 

Dictionary reference to constant chain 

Dictionary reference to special chain — debugging only 
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3. COMPILE-TIME PROCESSO R,, OPERATING 
SYSTEM, AND COMPILER CONTROL INTERFACES 



ZTV 



Although the compile- time processor 
makes considerable use of the Operating 
System facilities, it usually does so indi- 
rectly through the compiler control. How- 
ever, those Operating System services 
required to support the INCLUDE facility 
are invoked directly. Since included text 
is required to be a member of a partitioned 
data set, it is those data 
facilities which support BPAM 
used. Specifically the macros OPEN, FIND, 
CLOSE, READ and CHECK are used by various 
parts of the INCLUDE handler. Details of 
these macros can be found in IBM System/360 
Operating System; Control Program Services , 
Form C28-6541. 



management 
which are 



ZMYNAM 

MCSIZE 

CCCODE 

TXTSZ 

ZSOR — column number in which to begin 
scan of input text 

ZMAG — column number in which to end 
scan of input text 

ZTRAN1 

The following compiler control routines 
are referenced: 



The root phase is invoked by the compil- 
er control if the MACRO option is speci- 
fied. All subsequent communication between 
the compile-time phases and the compiler 
control is done by way of cells in the 
communications region. This includes the 
parameters passed to the F service rou- 
tines, the decoded options which are test- 
ed, and the cells set to indicate the 
status of source margins and mode (EBCDIC) 
of the output. 

Specifically, the following cells in the 
communications region are either used or 
set: 

PARI 

PAR2 



ZUPL 


RELESE 


ZURD 


RLSCTL 


ZUGC 


ZTXTRF 


ZUTXTC 


ZTXTAB 


ZURC 


ZCHAIN 


ZABORT 


ZALTER 


ZLOADW 


ZDABRF 


ZDICRF 


ZEND 


ZUERR 


ZUBW 


ZDRFAB 
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INDEX 



Note; This index refers to the descriptive 
sections only; it does not refer directly 



to items in Section 3. (For details of the 
organization of Section 3, see page 57.) 



Abbreviations used during compilation 

341-349 
Abort 292 
ABS function 44 
ABS marker 336 
ABS' marker 336 
Absolute code 335-336 

format of 

RR instructions 336 
RS instructions 336 
RX instructions 336 
SI instructions 336 
SS instructions 336 
Accumulator register 52 
Address calculation 53 
Address constants 55 
Address conversion 13 
Addressing mechanisms 52 
Adjustable length strings 44 
Aggregates logical phase 39-40 

function 15, 17 
ALLOCATE chain 25, 27 
ALLOCATE statement 52 

analysis 27 

attributes 32 

format after read-in 325 
ALLOCATE triple 

translation to pseudo-code 48 
Allocated item 

dictionary entry 32 
ALLOCATION function 44 
AREA 22 

Arithmetic triples 42 
Arrays 

assignment 37 

adjustable bounds 31 

bounds 

format of second file statement 337 

correspondence defined 40 

expressions 37 

initialization 42 

processing 39 

storage allocation 50 
Assigned registers 53, 335 
Assignment statements 

format after read-in 323 

nested 37 
Assignment triple 

translation to pseudo-code 48 
ATR listing 

(see attribute listing) 
ATR option 14<, 34, 292 
Attribute collection area 30, 31 
Attribute list 29 
Attribute listing 

how produced 34 
Attributes 30 

BIT 30 



CHARACTER 30 
DEFINED 30, 31, 34, 338 
dimension 30 
GENERIC 31, 44 
INITIAL 30, 31 
INITIAL CALL 30, 31 
LABEL 30 
LIRE 30, 31 
PICTURE 30 
POSITION 3 
precision 30 
SETS 30, 3 3 
USES 30 

association with identifiers 31 
check for invalid 29 
conflicting 31 
default 31 
expressions in 336 
factored 3 
syntax check 27 
test for consistency 28 
AUTOMATIC chain 33, 34, 51 

delimiter dictionary entry format 
storage allocation 49, 50 

BALR instruction 53 
Base registers 53 
BCD 

dictionary entry format 312 

to dictionary reference 32 

input 292 
BEGIN block 51 

linkage 52 
BEGIN chain 27 
BEGIN statement 32, 51 

format after read-in 322 
BEGIN triple 

translation to pseudo-code 48 
BEGIN' triple 45 

translation to pseudo-code 48 
BEGIN-END statement analysis 27 
BINARY function 44 
BINARY standard type DED 50 
BIT attribute 30 
BIT function 44 
BLDL macro 20, 22, 292 
Block control 19 
Block header chain 29 
BOOL function 43 
BPAM 377 

Branch and link instruction 53 
Branch outside block 33 
BSAM 21 

Build list 20, 22, 292 
Built-in function 

addressing slot 49 

aggregate arguments to 39 

dictionary entry format 311 



314 
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name 31 

(see also functions) 
BUY ASSIGN statement 48 
BUY statement 35, 36, 48, 52 

reordering of 44 
BUY triple 

translation to pseudo-code 48 
BY NAME option 35 

CALL chain 25, 27, 31, 32 
CALL statement 32 

analysis 27 

format after read-in 324 
Card image output 14 
Catalogued procedures 13 
CCCODE 15, 22 

(see also format of) 
CEIL function 44 
Chains 

ALLOCATE 25, 27 

AUTOMATIC 33, 34, 49, 50, 51 

BEGIN 27 

CALL 25, 27, 32 

CALL 25, 27, 31, 32 

constant 49 

CONTROLLED 49, 51, 55 

DECLARE 25, 27 

DEFINED 40 

ENTRY 27 

entry type 1 31 

LIKE 31 

PICTURE 33 

PROCEDURE 27 

PROCEDURE-ENTRY-BEGIN 25 

STATIC 55 

storage class 293 
Chameleon temporary 36, 39 
CHAR function 44 
CHAR48 option 21, 292 

CHARACTER attribute 30 
Character translation tables 19 
CHECK list 33 

dictionary entry format 313 

pretranslator scan of 37 
CHECK macro 377 
CLOSE macro 377 
CLOSE statement 46 

format after read-in 326 
Code bytes, dictionary entry 293 

text 327-328, 332-335 
Code produced for prologues and epilogues 

358-362 
Communication between phases 293 
Communications region 15, 19, 23, 352-355 

names of locations 353 

use by compile- 1 - time processor 375-377 
Compare action 38 
Compare weght 38 
Comparison triples 43 
Compilation 

entry point to 55 
Compile-time processor logical phase 
23-24, 370-377 

cleanup phase 24 

communications region use 375-377 

compiler control interface 377 

error messages 24 

function 15, 17 



initial scan and translation 24 

instruction codes 377-374 

internal formats of text 370-374 

line numbering 23 

operating system/360, interface with 
377 

output 24 
Compile-time statement 23 
Compiler control 19, 352 

compile-time processor interface 377 

routines 16 
functions 13 
initialization 13 
Compiler functions 28 

ps eudo- code 4 8 
format 3 35 
Compiler label 

dictionary entry format 3 09 

numbering 55 
compiler logic, guide to 57-286 
Compiler options 13 

table 22 
Compiler organization 15, 16 
Compiler phases 19-56 

loading 13 
Compiler pseudo-variables 28 

pseudo-code 48 
Completion code, compiler 20 
COMPLEX function 44 
CONDITION condition 33 
CONJG function 44 
Constant chain 49 

Constant, conversion to internal form 48 
Constant marker 32 
Constants pool 49, 55 
Containing block chain 29 
Control code word 15 

(see also format of) 
Control, compiler 

(see compiler control) 
Control flow 16 

Control, passing between phases 15 
CONTROLLED chain 

final assembly scan 55 

storage allocation scan 49 
CONV pseudo-code macro 48 
Correspondence defining 34, 40 
Cross-reference listing 

how produced 34 
CSECTs 54 

Data byte format 305 

Data element descriptor (DED) 33 

Data flow 14 

Data item dictionary entry format 300 

Data list 36 

association with format list 47 
Data sets 13, 14 
Data transmission 47 
Data types, incompatible 36 
DCLCB generation 54 
Debugging 13 
DECIMAL function 44 
DECIMAL standard type DED 50 
DECLARE chain 25, 30 
DECK option 14, 292 
DECLARE chain 27 
DECLARE control block 54 



Index 37 ! 



DECLARE statement 32 

analysis 27 

format after read-in 325 
DED 33 
DED, DED 2 

dictionary entry formats 314, 315 
Default attributes 31 
DEFINED attribute 30, 31 

format of second file statement 33! 
DEFINED chain check 40 
DELAY statement 45 

analysis 27 

format after read-in 325 
DELETE statement 45 

analysis 27 

format after read-in 326 
Diagnostic message control 20 
Diagnostic messages 14, 24, 25, 56, 

363-369 
Dictionary 24, 27, 290, 293 

comunications region 15, 352-355 

contextual scan 32 
Dictionary block 16, 19 

control 19 

size 13, 350 
Dictionary entry 24, 293-316 

for allocated item 32 

code bytes 293-295 

compile-time processor 370 

from constant 310-311 

dope vector descriptor 40 

for entry points 28 

for internal entry point 29 

record description 40 

zone delimiter 51 

OFFSET1 Slot 50 

skeleton dope vector 49 

virtual origin slot 50 

(see also format of) 
Dictionary entry chains 29 
Dictionary logical phase 27-35 

function 15, 17 

housekeeping 34 

output 32 

picture processing 33 

second file merge 34 
Dictionary reference 

validity check 33 
DIM function 44 
Dimension attribute 30 
Dimension table 30, 316 
DISPLAY statement 45 

analysis 27 

format after read-in 324 
DO statement 

format after read-in 323 
DO-END statement analysis 27 
DO group expansion 42 
Dope vector 

format 316 

descriptor dictionary entry 40 

extra slots 49 

skeleton, dictionary entry 314 

temporary, dictionary entry 315 
'Dope vector required' bit 34 
DSA 41, 51 

Dummy dictionary reference 31, 33 
DUMP option 21, 292 



Dumping 21 
DVD 

(see dope vector descriptor) 
Dynamic defining 34 
Dynamic dump 22 
Dynamic storage 

allocation 52 

management 358 
Dynamic storage area 41 
Dynamic temporary 49 
Dynamically DEFINED item 49 



EBCDIC 24, 29 2 

Edit- directed input/output 47 

ELSE clause 4 5 

END card for compile program 55 

End- of prog ram, logical 25, 26 

End-of-program triple 

translation to pseudo-code 48 
END statement 

compiler-generated 25 

format after read-in 322 
ENTRY chain 2 7 
ENTRY code byte format 299 
Entry label 25 
Entry point 

dictionary entry format 295 

to compilation 55 
ENTRY statement 32 

analysis 27 

dictionary entry 30 

format after read- in 322 
Entry type 1 28, 29 

chain 31 

dictionary entry 295 
Entry type 2 29 

dictionary entry 297 
Entry type 3 28, 29 

dictionary entry 297 
Entry type 4 28, 29 

dictionary entry 298 
Entry type 5 28 

dictionary entry 299 
Entry type 6 28 
ENVIRONMENT option 54 
Epilogues, code produced for 358-362 
Error chain 2 4, 56 
Error messages 

(see diagnostic messages) 
Errors 25 
Error editor logical phase 26, 55-56 

function 15, 18 
Error package, library 53 
ESD cards 54 
Event variable 32 
EXIT statement 45 

format after read- in 325 
Expressions 

in attributes 336 

compile-time processor encodement 372 

definition 36 

evaluation (pseudo-code) 42 
External/internal code conversion 25 
EXTERNAL item addressing slot 4 9 
External library routines 341 
External symbol dictionary 54 
EXTREF option 14, 292 
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F-format records 292 
Factored attributes 30, 31 
Factored attribute table 30 
FED 

(see format element descriptor) 
File 

constant 54 

dictionary entries 310 

variable 32 
Final assembly 54 
Final assembly logical phase 53-55 

function 15, 18 

initial values 55 
FIND macro 377 

First code byte (other 1) format 303 
FIXED function 44 
FIXED standard type DED 50 
FLAGL, FLAGS, FLAGW options 292 
FLOAT function 44 
FLOAT standard type DED 50 
FLOOR function 44 
Flowcharts 57-272 
Formal parameter type 1 

dictionary entry 309 
Format element descriptor 

dictionary entry 315 
Format list 36 

association with data list 47 
Format of 

ALLOCATE statement 325 

array bound second file statement 337 

assignment statement 323 

BEGIN statement 322 

CALL statement 324 

CLOSE statement 32 6 

control code word — CCCODE 292 

DECLARE statement 325 

DEFINED second file statement 338 

DELAY statement 325 

DELETE statement 326 

dictionary entries 
(see below) 

DISPLAY statement 324 

DO statement 323 

END statement 322 

ENTRY code byte 299 

ENTRY statement 322 

EXIT statement 325 

FORMAT statement 326 

GENERIC entry point 299 

GET statement 326 

GOTO statement 324 

identifier value block (compile-time 
processor) 371 

IF statement 322 

INITIAL label DECLARE statement 325 

INITIAL value second file statement 338 

keyword table 291 

multiplier function second file 
statement 337 

null statement 325 

ON statement 323 

OPEN statement 326 

options code byte 299 

phase directory entry 292 

PROCEDURE statement 3"21 

PUT statement 326 

READ statement 326 



REVERT statement 324 

RETURN statement 325 

REWRITE statement 326 

RR instructions 334, 336 

RS instructions 334, 336 

RX instructions 333, 336 

second file statement 337 

SI instructions 334, 336 

SIGNAL statement 324 

SS instructions 334, 336 

STOP statement 325 

string length second file statement 338 

text after read-in phase 321-326 

text in absolute code 335 

text in pseudo-code 332-335 

text code byte after read-in phase 

318-321 
triples 329-331 
UNLOCK statement 326 
WAIT statement 324 
WRITE statement 326 
variable information 305, 306 
Format of dictionary entries 293-316 
AUTOMATIC chain delimiter 314 
BCD 312 

built-in function 311 
CHECK list 313 
compile-time processor 370 
compiler label 309 
from constants 310-311 
data item 300 
code bytes for data, label, and 

structure entries 303-305 
DED 314-315 
DED2 315 
dope vector 316 
dope vector for temporary 315 
dope vector skeleton 314 
entry points 295-299 

code bytes 299 
entry type 1 295-297 
entry type 2 297 
entry type 3 2 97-298 

SETS list format 298 
entry type 4 298 
entry type 5 299 

FED (format element descriptor) 315 
FILE 310 

file constant 310 
file environment 310 
file parameters and temporaries 310 
formal parameter type 1 309 
internal library function 312 
label BCD 315 
label constant 309 
label variable 300 
ON condition 313 
ON statement 312 
parameter description 312 
parameter list 314 
PICTURE 313 

record definition vector 315 
second file 316 
structure item 300 
symbol table 314 

task identifiers and EVENT data 311 
workspace requirement 313-314 
FORMAT statement 
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analysis 27 

format after read-in 32 6 
Fourth code byte (other 4) 304 
FREE statement 52 

analysis 27 
FREE triple 

translation to pseudo-code 4 8 
FREE VDA library call 52 
FREEDSA routine 45 
Functions 44 
Function triples 43 

GENERIC attribute 31, 44 
GENERIC entry labels 37 
Generic entry name arguments 44 
GENERIC entry point, format 299 
Generic library routine 39 
Generic procedure 39 
GET statement 46 

format after read-in 32 6 
GOOB 33 

triple 45 
GOTO statement 33 

analysis 27 

format after read-in 324 
GOTO triple 45 
go-out-of- block 

(see GOOB) 

Hash chain 27,29 
Hash table 27, 29 
Hashing 27, 370 
HBOUND function 44 

IDENT option 47 
Identifier value block 371 
IEMAA 19 
IEMAF 356 

bit identification 357 
IF statement 

format after read-in 322 
IF-THEN-ELSE statement analysis 27 
IF triple 45 
IGN pseudo-code item 4 8 
IHEMAIN 55 
IMAG function 44 
INCLUDE 377 

dictionary entry 54 
INCLUDE card 

generation 54 

matrix 47, 48 
Included data sets 21, 23 
INITIAL attribute 30, 31 
INITIAL CALL attribute 30, 31 
INITIAL label DECLARE statement 

format after read- in 325 
INITIAL value 

format of second file statement 33! 
Initial values, final assembly 55 
Initialization 19 
Initialization table 42 
In-line functions (pseudo-code) 44 
Input/output 46 

control 19, 20 

edit-directed 47 

interface with operating system 21 

modification 36 

RECORD- oriented 45 



STREAM- oriented 47 

usage table 21 
Input/output statements 

format after read-in 326 
Insertion file 53 
Instruction codes for compile-time 

processor 372-374 
Intermediate file 21 

Internal formats of dictionary entries 
293-316 

(see also format of) 
Internal formats of text 317-349 

compile-time processor 370-374 

(see also format of) 
Internal library function 

dictionary entry 312 
Internal library routines 341 
Invalid character 24 
Invocation count 45 
IRREDUCIBLE 31 
iSUB 30 

defining 3 7 
Iterative DO statement analysis 27 
IVB 

(see identifier value block) 

JMP triple removal 48 
Job control language 13 
Job termination 20 

KEY option 46 
KEYFROM option 46 
KEYLENGTH option 47 
KEYTO option 46 
Keyword tables 26 

organization 290-291 
(see also format of) 
Keywords, national language 291 

Label 26 

array 33 

with initial label statement 34 

dictionary entry for BCD 315 

dictionary entry for constant 309 

dictionary entry for variable 300 
LABEL attribute 30 
Label table 2 5 
Labels, multiple 25 
LBOUND function 44 
LENGTH function 44 
Level count 3 2 
Library 45 

calling sequences 43, 45, 48 
format in pseudo-code 341 

epilogue routine 45 

error package 53 

format director routines 47 
LIKE attribute 30, 31 
LIKE chain 31 
'Likened' structure 31 
LINE option 47 
Line numbering 23 
LINES IZE option 47 
Link library 13 
Linkage editor 13, 54 
LIST option 14, 55, 292 
Listings 14 

attribute 34 
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cross reference 34 
Load-ahead technique 31 
LOAD option 14, 292 
Loader text cards 55 
Loading of phases 13, 20 
LOCATE statement 45 

analysis 27 
Location counter 

machine instructions 54 

STATIC 50 
Logical end-of -program 25 
Logical phases 

functions 15, 17 

(see also phases (logical) , description) 
LONG standard type DED 50 
'Look-ahead* routine 52, 53 

Machine instructions 55 

MACRO option 21, 23, 292, 377 

MAIN option 55 

MAX function 44 

Message text 56 

Messages, diagnostic 363-369 

MIN function 44 

Mixed overlay defining 40 

MOD function 44 

Modules 

AA 19, 21, 56 

AB 21 

AC 21 

AE 21 

AF 356 

bit identification 357 

AS 21 

BX 21 

CA 290 

CC 290 

CE 290 

CG 290 

CI 20, 290 

CK 290 

CN 290 

CR 290 

FY 21 

UA 21 

UF 21 

XB 21, 56 

XF 56 

XG through YF 56 

(see also phases and modules) 
Multiple assignment 43 
Multiple source assignment triples 

translation to pseudo-code 48 
Multiple target assignment triples 

translation to pseudo-code 4 8 
Multiplier function 

format of second file statement 337 

National language keywords 291 
Nested assignment statements 37 
Nested DO groups 42 
Nested procedures 

object time unnesting 55 
NOCHECK list 33 
Null statement 

format after read-in 325 

Object deck serialization 54 



Object listing 55 
Object program 15 
OFFSETland OFFSET2 slots 306, 307 

uses of 308-309 
ON block 51 
ON CHECK condition 35 
ON condition 33, 50, 51 

dictionary entry format 312, 313 

programmer- named 32 
ON statement 

dictionary entry format 312 

format after read-in 323 
ON triple 45 
OPEN control block 54 
OPEN macro 37 7 
OPEN statement 46 

format after read-in 326 
Operating system/360 

access methods 21 

compile- time processor, interface with 
377 

control program 13, 16 

job control language 13 
OPT 292 

Optimization 54 
Option list 19 
Options code byte 29 

format 299 
Options, compiler 356-357 
Options listing 19 
Other 1 

(see first code byte) 
Other 2 

(see second code byte) 
Other 4 

(see third code byte) 
Other 4 

(see fourth code byte) 
Output 

compile-time processor 24 

dictionary 32 

read-in phase 25 
Overlay defining 34, 40 

P FORMAT marker 32 

PAGES I ZE option 47 

Parameter description dictionary entry 312 

Parameter list dictionary entry 314 

Parameter matching 36 

Phase 

BC 372 

CI 22 

FT 293 

IA 42 

JK 52 

LB 49 

(see also phases and modules) 
Phase directory 19, 20 

entry format 292 

organization 292 

second half 22 

status byte 13 
Phase loading 

compile-time processor 23 
Phase marking 20, 38, 42 
Phases, communication between 293 
Phases and modules 

description 19-56 
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guide to 287-289 
Phases (logical), description 19-56 

aggregates 39-40 

compile-time processor 23-24 

dictionary 27-35 

error editor 55-56 

final assembly 53-55 

pretranslator 35-38 

pseudo-code 40-49 

read-in 24-27 

register allocation 52-53 

storage allocation 49-52 

translator 38-39 
Physical registers 41 

allocation 53 
PICTURE 

chain 33 

dictionary entry 29, 32 
format 313 

table 30 

reorganization 34 
Polish, postfix 372 
POSITION attribute 30 
Postfix Polish 372 
Precision attribute 30 
PRECISION function 44 
Pretranslator logical phase 35-38 

function 15, 17 
PROCEDURE 

block 51 

chain 27 

statement 29, 32 

format after read-in 321 

triple 

translation to pseudo-code 48 
PROCEDURE-END statement analysis 27 
PROCEDURE- ENTRY -BEGIN chain 25 
PROCEDURE- ENTRY chain 29-30 
Procedure invocation 44 
Procedure size 54 
PROCEDURE' triple 45 

translation to pseudo-code 48 
Program check handling 20 
Prologues 53 

code produced for 358-362 

construction 28-51 
PRV 45 

Pseudo-assignment statement 26 
Pseudo-code 

description 40 

design 40, 332 

format of 

RR instructions 334 
RS instructions 334 
RX instructions 333 
SI instructions 334 
SS instructions 334 
text 332-335 

library calling sequences 341 

skeletons 47 

supplementary items 41 

temporary result descriptors (TMPDs) 
339-341 
Pseudo-code logical phase 40-49 

branches 45 

compiler functions and pseudo-variables 
48 

expression evaluation 42 



function of 15, 17 

in-line functions 44 

RECORD I/O 45 

STREAM I/O 47 

string utilities 43 

subscripts 45 

utilities 41 
Pseudo-register vector 
Pseudo- variable 

syntax check 37 

triples 43 
PUT statement 46 

format after read- in 
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Qualified subscripted name 32 
QSAM 21 

R format item 47 
RDV 

(see record definition vector) 
Read- in logical phase 24-27, 290 

function 15, 17 

output string 25, 26 
arrangement 26 

storage map 26 

structure 26 
READ macro 377 
READ statement 45 

analysis 27 

format after read-in 326 
REAL function 44 
Record definition vector 46 

dictionary entry 315 
Record decription dictionary entries 40 
Record descriptor vector 46 
RECORD-oriented input/output 45 
Records on input 

F- format 2 92 

U- format 292 
REDUCIBLE 31 
Register allocation logical phase 52-53 

function 15, 18 
Registers 

pseudo- code description 41 
RELESE 352 

Relocation dictionary cards 55 
Remote format item 47 
REQEST 352 
REQUEST_CODES 46 
Resident tables 290-292 
RETURN ( expres s ion ) 28 
RETURN statement 

analysis 2 7 

format after read-in 325 
RETURN triple 45 
REVERT statement 33 

format after read-in 324 
REVERT triple 45 
REWRITE statement 45 

analysis 27 

format after read-in 326 
RLD cards 55 
RLSCTL 352 
RLSCTLX 352 
ROUND function 44 
Routine directories 57-286 
RR instruction format 

absolute code 336 
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pseudo-code 334 
RS instruction format 

absolute code 336 

pseudo-code 334 
RX instruction format 

absolute code 336 

pseudo-code 333 

Scalar assignment 37 

Scalar overlay defining 40 

Scratch storage 19 

Second code byte (other 2) format 303 

Second end-of-program marker 38 

Second file 33, 34 

dictionary entry 316 

statement 29, 30, 49, 51, 336 
Second half phase directory 22 
Second offset slot 306, 307 

uses of 308-309 
SELL statement 35, 37, 48 

reordering of 44 
SELL triple 

translation to pseudo-code 48 
SETS attribute 30, 33 
SETS list format 298 
Severity code 292 
SHORT standard type DED 50 
SI instruction format 

absolute code 336 

pseudo-code 334 
SIGNAL statement 33 

format after read-in 324 
SIGNAL triple 45 
SIGNAL CHECK statement 37 
SIGN function 44 
SIZE option 20, 21 

Skeleton dope vector dictionary entry 49 
SKIP option 47 
SOURCE option 14, 27, 292 
SOURCE 2 option 14 
Source program listing 27 
Special assignment triple 

translation to pseudo-code 48 
Spill file 351 
Spill point 13, 351 
Spill storage 16 
SS instruction format 

absolute code 336 

pseudo-code 334 
Stack action 38 
Stack weight 38 
Standard type DED 50 
Statement 

anlysis 27 

identifier 26 

label 25 

dictionary entry 30 

label, translation to pseudo-code 48 

number 25, 32 

translation to pseudo-code 48 

type identification 26 

within statements 35 
Statements 

ALLOCATE 52, 325 

assignment 323 

BEGIN 51, 322 

BUY 48, 52 

BUY ASSIGN 48 



CALL 324 

CLOSE 46, 32 6 

DECLARE 325 

DELAY 45, 325 

DELETE 45, 326 

DISPLAY 45, 324 

DO 323 

END 322 

ENTRY "322 

EXIT 325 

FORMAT 326 

GET 46, 32 6 

GOTO 324 

IF 322 

INITIAL label DECLARE 325 

LOCATE 45 

null 325 

ON 323 

OPEN 46, 326 

PROCEDURE 51, 321 

PUT 46, 32 6 

READ 45, 326 

RETURN 325 

REVERT 324 

REWRITE 45, 326 

SELL 48 

SIGNAL 324 

STOP 325 

UNLOCK 45, 326 

WAIT 324 

WRITE 45, 326 

(see also individual items, and format 
of) 
Static 

defining 34 

external variable CSECT 55 

internal CSECT 49, 55 

storage allocation 49 
Status byte 13 
Step table 53 
Sterling constants 34 
STMT option 53 
STOP statement 45 

format after read- in 325 
Storage allocation logical phase 15, 17, 
49-52 

arrays 51 

AUTOMATIC chain 50-51 

controlled variable address 51 

DEDs 49, 5 

DEFINED items 51 

dynamic 52 

entry label BCD 49 

entry type 1 parameters 51 

INITIAL arrays 50 

label constant BCD 49 

RDVs 4 9 

SAVE/RESTORE entries 49 

simple variables 49 

STATIC 49 

STATIC INTERNAL arrays and structures 50 

strings 51 

structures 51 

symbol tables 50 

temporary type 2 address 51 

variables 51 
Storage class chains 293 
Storage dumping 21 
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Storage requirements 13 r 20* 350-351 
STREAM-oriented input/output 47 
String 

dope vector description 43 

length 31 

format of second file statement 338 

triples 43 

utilities (pseudo-code> 43 
STRING function 44 
Structure 

assignment 37 

'inherited' dimensions 34 

item dictionary entry 300 

level number 30, 31 

storage allocation 50 
Structure processor phase 39 
Subscripted qualified name 32 
Subscripts 

pseudo-code 45 

too many in list 37 

triples 43 
Symbolic accumulator register 4 
Symbolic register 41, 52, 53 

counter 41 
SYSIN 14, 19, 20, 21 
SYSLIB 21 

Symbol table dictionary entry format 314 
SYSLIN 14, 20, 21 
SYSPRINT 14, 19, 20, 21 
SYSPUNCH 14, 20, 21 
System generation 356-357 
System residence 16 
SYSUT1 14, 19, 21, 351 
SYSUT3 14, 19, 21 

Task identifier and EVENT data 

dictionary entries 311 
Temporary description stack 339 
Temporary result descriptor 339-341 
format 339 
triple 41 
Temporary storage 35 
Temporary variable 35, 36 
Termination of compilation 20 
Terms used during compilation 3 41-349 
TESTRAN 21 
Text 

block 15, 16, 19 
control 19 
marker 24 
size 13, 350 
code byte 

format after read- in 318-321 
on entry to translator phases 327- 325 
in pseudo-code 322 
formats 317-349 

after read-in phase 321-326 
compile-time processor 370 
absolute code 335-336 
skipping 26 
string 

at start of compilation 15 
after translation 38 
supplementary items 35 
terms and abbreviations during 
compilation 341-349 
Third code byte (other 3) 304 
TITLE option 47 



TMPD 339-341 

format 339 

triples 43 

(see also temporary result descriptor) 
Track over flow 292 
Transfer vectors 19, 352 
Translate table 25 

triples 42 
Translation stack 38 
Translator logical phase 38-39 

function 15, 17 

generic phase 39 

stacker phase 38 
Triples 17, 3 8 

conversion to pseudo-code 40 

format 329-331 

translate table 42 
TRUNC function 44 
TXT cards 55 

U-format records 292 
Umbrella symbol 35 
Undimensioned structure 

overlay defining 40 
UNLOCK statement 45 

analysis 2 7 

format after read- in 326 
UNSPEC function 44 
USES attribute 30 

Variable byte format 305 

Variable data area 44, 51 

Variable information, format of 305-306 

Variable initialization 42 

Variable length item 334 

Variable storage accumulator 52 

VARYING attribute 40 

VDA 

(see variable data area) 
Virtual origin 36, 316 

slot 50 

WAIT statement 

analysis 2 7 

format after read-in 324 
Workspace requirement dictionary entry 313 
Workspace supervision 13 
WRITE statement 45 

analysis 2 7 

format after read-in 326 

XREF listing 

(see cross-reference listing) 
XREF option 14, 34, 292 

Z ABORT 352 

Z ALTER 352 

ZCHAIN 352 

ZDICAB 352 

ZDICRF 352 

ZDABRF 352 

ZDRFAB 352 

ZEND 352 

ZLOADW 352 

ZLOADX 352 

ZNALDB 352 

ZNALRF 352 

Zone delimiter dictionary entry (AUTOMATIC 
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chain) 51 ZULF 352 

ZTXTAB 352 ZUBL 352 

ZTXTRF 352 ZUSP 352 

ZUBW 352 ZURC 352 

ZUERR 352 ZURD 352 

ZUGC 352 ZUTXTC 352 
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